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AU SOMMAIRE DES 


ANCIENS NUMEROS DE 

théorie 


(Pour les seuls numéros encore 
disponibles en décembre 1986) 


Numéro 6 

Essais de l'XL DOS AUTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la cane 8 
E/S MAGECO. VOICE ORIC 
parle dans interface. RENUM-DES- 
TRUC renumér*0bn et suppression 
de lignes Basic. Les interrup¬ 
tions une horloge Master-mind 
jeu. ANADIS analyse de dis¬ 
quettes au format MICROOISC. La 
Jasmin-Printer (Brother M 1009) à 
l'essai et recopie d'écran pour cette 
impnmante. 

Numéro 7 

BLURK’S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs en langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de secteurs sur Jas¬ 
min ou commenrjjl parer une dis¬ 
quette. Tour d'Iwzon des Moni- 
teurs-Assembleurs du commerce. 
Le magnéto sans angoissa ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS 
Essai du crayon optique Recopie 
d'écran sur MCP 40 L'interface 
TVS. 


Numéro 10 

Essai du modem TONIC. Le Basic 
Français. Utilitaires pour vous plaire 
(1). Modifica tions du MONITEUR 
1.0 de LORICIEI-S. CROCKY jeu. 
Compta bancaire : gérez le sur 
MICRO-DISC ™). Compatibilité DTL 
2000 et JASMIN 


Numéro 11 

Hors-série rem 
programmes en 


lo. jgen 


multitude de 
nres. 


Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ Le DTL 2000 ♦ un serveur 
pas cher. Schéma électronique de 


l'ORIC Essai de la table graphique 
GRAPHISCOP le pa-Mge mé¬ 
moire de l'O®. Ut-l la 'es pour 
vous plaire ;2) | Un Moniteur- 
Assembleur Compte bancaire 
(suite et fin). 


Numéro 13 

Transfert du FORTH sur MICRO- 
DISC. TANDEM 13 un. l ogiciel pour 
le DTL 2000. Jogfez^mc les cou¬ 
leurs de l'ORIC. ffliljMp pour vous 
plaire (3). Créer de* fenêtres sur 
ORIC. MICRODISC et JASMIN : 
ils communiquent. City on Raid 
jeu. 


Numéro 14 

Le SEDORIC à la loupe. Un éditeur 
de caractères en langage ma¬ 
chine. CONJUGAISON ORIC à 
l’école. Sortir le- *00 aur le télé¬ 
viseur Fenètrdÿ (fin) Calculez 
votre Epargneiogefhent Scrol- 
ling latéral. Sauvegarde des vari¬ 
ables avec rORIC-1. Un utilitaire: 
Super Désassembleur Jouez 
avec les Mots-Cachés. 


Numéro 15 

Une imprimante à fessa : la MT 
80S Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai de ja carte 256 
couleurs de MiaoL.tur; Editeur de 
secteurs sur Jdtfii^VpUSICORIC 
pour que lORIOI dwenne musi¬ 
cien. Carte séri® pour liaison avec 
MINTTEL. Educatif le moteur è 4 
temps Redéfinition de caractères 
pour E ASYTEXT. 


Numéro 17 

Le TELESTRAT se présente Trans¬ 
fert de récran TEXT en HIRES (1). 
Conversion du binaire en DATA 
ORICTEL logiciel d'application de 


la carte série Minitel Recopie ra¬ 
pide sur imprimante mode texte 
Ecnture évoluée^ LEONARD utili¬ 
taire de des9lh ;1) Fiches de 
paya comment' c*1culer les sa¬ 
laires avec ORW Jacqueries de cas¬ 
settes pour GP 50 Catalogue 
amélioré sur Jasmin 


Numéro 22 

Tout sur le VIA 6522 - GROS : 
caractères gé^ts^—MUSICORIC et 
JASMIN - ^Mgenes (2) - 
SWAP OVf HlAY- - Diététique 
mieux s'alimdpfef Schéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Numéro 19 

Léonard : fin de l’utilitaire création 
graphique Modifications de l'AT- 
MOS et du M£fE^S>C Un mini- 
interpréteur Prof^non du Hl- 
MEM. Le tn an langage machine 
Jeu éducatif : EUROP'ORIC. En sa¬ 
voir plus sur le SEDORIC Compte 
bancaire gérez-le sur JASMIN Uti¬ 
litaires pour vous plaire (4). 


Numéro 20 
CALCULAT 
PUISSSANC 
cran pour F 
préteur Basic 


C^benc 

CL 4 *1- 
ASTFXI 80 


d’essai - 
Recopie d'é- 
- Mini Inter- 


Numéro 21 

Les interruptions _ ^ mal ion gra¬ 
phique en 3 D -Jeu . Singerie (1) - 
SEDUTIL pour mi^Rwiliser SEDO¬ 
RIC - Recopie page VIDEOTEX - 
Buffer soft pour impnmante - Super 
recopie d'écran 


Numéro 25 

Test: le Jasmm-PQ^fces fichiers 
dont tout le monda parle - Ecriture 
stylée sur MCP 40 - Jeu de la vie - 
Rem color - En an von plus sur FT 
DOS - Data ♦ - ORIC à 2 ROM - 
MUSIC(I) 

Les articles et programmes rappelés 
ci-dessus ne forment que l’essentiel 
des différents numéros de THE ORIC 
cités. Les essais des différents logi¬ 
ciels. les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter à compléter votre collec¬ 
tion de T HE OR IC | A 

C ©****£ 

i v 0 ^ 8 ' ^ 


Numéro 18 

Un driva 3"ir2 à Triphonia 
l'ORIC devient orgue. Connaissez- 
vous les objets tractais ? Le 
Devin : 

Frog Panic 
me à partir 
carte série) : 
instruments de musique avec Fré- 
quencamètre. Text-Hires (fin) Léo¬ 
nard (suite). Deux recopies d’é¬ 
cran : GP 550 et Brother Ml009 
(Jasmin pnnter). Lister l'EPROM du 
Microdisc. 


? Un jeu : 
un program- 
(et de la 
ccordez vos 


Numéro 23 

Educatif : TABLORKX, Print Formaté 

- Stnng : comnfindlL graphiques - 
Sauvetage itiCaMmme - Cal¬ 
culs de l'OR^^Mrames et collages 

- Casse-bnques - clippmg. 

Numéro 24 

Chasse au bug - Asbplogie et ordi¬ 
nateur - Sr gene .tin) Calculs dans 
N - Dossier AT - Mini- 

Punt : éditt-jr dp Danderolies - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 




























20, rue de Montreuil - 94300 VINCENNES - ‘2? (1) 43.28.22.06 

du mardi au vendredi :10h30à13h - 15hà19h — le samedi : 10 h 30 à 19 h 


REVENDEUR OFFICIEL AGREE ORIC-FRANCE 


SYNTHÉVOC 1 


PROMOTION 


K> 



0 


JASMIN 2 "+" 

Le lecteur de disquette que votre Oric préfère. 


Il ne lui manque que la parole", synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 

rampaoni» • 

□ synthétiseur vocal. F 240 F 


K \ 


\ 

MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il "discute 
avec ses semblables et accède au réseau "minitel" 
Fourni avec interface intégrée et logiciel 
□ modem DIGITELEC 


1490 F 



□ moniteur couleur 2490 F 








,v& vt 


« 


Interface tous jeux 
Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de |eux 
□ interface tous jeux 360 F 




Rallonge Péritel 

Ne soyez plus "collé" â l'écran ■ 
□ rallonge péritel. 


. 95 F 


m 


j 


Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 


Imprimante CITIZEN 1200 

120 CPS • matrice 9x9- traction ou friction - jusqu'à 
3 ex compatible EBSON garantie 2 ans - interface cen 
ironie intéqrée 

□ imprimante CITIZEN 120 D 2490 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro ordinateurs vous évitera bien des soucis. 
Entrée OIN ou Jack. Niveau réglable Témoin 
sonore et lumineux Alimentation intégrée 
□ magnétophone 360 F 



Imprimante Smith Corona Fastext 80 
- 80 caract7sec.. impression bidirectionnelle, 
entrainement par friction, interl. contronic. buffer 
intégré, écriture normale ou condensée 
C imprimante lastext 80 . JjWuF 1490 F 

□ entraînement picot pour F 80 ... ... 320 F 




□ lecteur double tète 


2.490 F 


□ atmos . 990 F 






PROMOTION 






logiciel ORIC 1 exclusivement 




pour 2 titres : 145 F pour 3 titres :195 F pour 4 titres : 220 F pour 5 titres : 250 F 



□ carnet d’adresses 


□ jogger 


□ mushroom mania 




□ trace dump 


□ calorie 


□ centipède 




□ black base 


le hevre et la tortue 


□ gasironon 




□ oric-gestion 


□ le monde végétal 


□ oric munch 




□ oric mind 


□ hunchback 


□ facturation 




□ yam 


□ la chenille infernale 


□ ultima zone 




□ guerre des couleurs 


□ morpion 


□ pengoric 




□ gencar 


□ dicodonc 


□ finances 




□ ciros 


□ zig zag 


□ copy écran (pour GP 100) 



□ fromage 


□ acheron s rage 


□ calculus 




□ caractor 


□ ice giant 


□ super break out 






LUuIUIlLO UHOOCI IC 





□ 1815. 

160 F 

□ dossier g 

140 F 

□ meurtre gde vitesse . 

180 F 



□ 3 dfongus . 

140 F 

□ dracula s revenge 

110F 

□ mission delta 

95 F 



□ 3 d munch. 

140 F 

□ elephorm/color. 

100 F 

□ moniteur 1.0. 

140 F 



□ add-sous. 

165 F 

□ élysée 

145 F 

□ mots croisés. 

120 F 



□ annuaire . 

120F 

□ flipper. 

140 F 

□ nessy 

95 F 



□ ass. symbol. 

150 F 

□ formule 1 

130 F 

□ oric base 

115F 



□ assimil (anglais) 

250 F 

□ frelon. 

120F 

□ orthocrack vol. 1 . . . 

165 F 



□ atlantid. 

120 F 

□ Irigate comm. 

120 F 

□ orthocrack vol 2 

165 F 



□ atlantis. 

140 F 

□ Iromage 

95 F 

□ orthocrack vol. 3 . 

165 F 



□ basic étendu 

120 F 

□ gest (gest. banc). . . 

130 F 

□ outimatic 1 . . 

125 F 



□ basic turbo 

140 F 

□ gestio de stock . . 

145 F 

□ pastablasta ... 

100 F 



□ bibholiches 

120 F 

□ hades . 

250 F 

□ rabbit . 

90 F 



□ doggy. 

120F 

□ hyperspace 4 

120F 

□ A.T.M 

130 F 



□ brique à brac. 

90 F 

images (d a o.) .... 

130 F 

U polyfichier . . 

18 U y 



□ le fer d amukor . 

195 F 

D msect insanity .... 

100 F 

□ r.d.v. de la terreur 

95 F 




100 F 


180 F 


105 F 



□ businessman 

14U F 

. 1 l'apprends l'anglais 

125 F 

□ reverse. 

90 F 



□ calcul mental 

120F 

Rapprends la c a.o 

150 F 

□ saga . 

150 F 



□ canm bail 

100 F 

karaté . 

99 F 

□ stanley. 

120F 



□ carmamac 

110 F 

1 aigle d'or . 

180 F 

□ star. 

120 F 



□ montsegur . 

140 F 

□ la cite maudite 

140 F 

□ starter 3 d . 

129 F 



□ mission impossible 

120 F 

□ la flûte mca 

120 F 

□ stresse . 

120 F 



callenger 

130 F 

□ notwik puzzle. 

120 F 

U super jeep. 

120F 



U citadelle 

125 F 

□ tyrann. 

185 F 

□ system animation 

140 F 



□ clavidact . 

125 F 

Ule diam île maud 

160 F 

□ tekms . 

120 F 



□ clovis 1 (échecs) . 

150 F 

□ le général 

120 F 

□ tendre poulet. 

120 F 



□ cobra. 

95 F 

□ le mand dr gemus 

140 F 

□ terminus. 

120 F 



□ cobra pinball. 

140 F 

□ le millionnaire. 

120 F 

□ the hobbit. 

180 F 



□ colorie. 

. 95 F 

□ lemmotaure 

165 F 

□ lie tac. 

120 F 



□ colossal adventure 

130 F 

□ retour dr gemus 

160 F 

□ tortue logic. 

150 F 



□ compilateur graphique . 

250 F 

□ le secret du tomb 

140 F 

□ triathlon. 

150 F 



□ crypt show. 

100 F 

□ le trésor du pirate 

95 F 

C ultima zone. 

100 F 



□ dam buster. 

105 F 

□ lissage. 

125 F 

□ une affaire en or ... . 

145 F 



□ damsel in distress 

120 F 

□ logo vl o. 

295 F 

□ vision. 

120 F 



□ dedal . 

110 F 

□ longraph. 

290 F 

□ vortext. 

260 F 



□ dialogue 

125 F 

□ loritel. 

395 F 

□ waydor. 

105 F 



□ digger. 

100 F 

□ macadam bumper 

160 F 

□ world war 3. 

95 F 



□ dit ?d'ac ! (sc. nat. 5") 

. 75 F 

□ master paint 

250 F 

□ xénon 1 

100 F 



□ dit ?d ac ! (sys. aut.). 

75 F 

□ math-sam (malh prim ) 

125 F 

□ xénon 3 

105 F 



□ don juan et drageurs. . 

140 F 

□ méfies toi de méphisto. 

80 F 

□ zorgon s revenge ■ 

105 F 



















□ interfaces pour oric 

59 F 

□ l'oric à l'affiche 

95 F 

□ guide pratique oric 1. . 

75 F 



□ l'oric à nu. 

151 F 

□ prog en lang mach . 

. 95 F 

□ prog. pour oric 1 . . . . 

59 F 



□ guide pratique atmos 78.50 F 

□ mieux prog. sur oric 

110 F 

□ la prog. jeux aventure . 

. 90 F 



□ programme pour oric 1. 

85 F 

□ applications du 6502 

128 F 

□ la conduite de l'oric . . 

80 F 



□ boite à outils pour oric 

35 F 

□ manuel réf t2 . . 

120 F 

□ apprenez élec sur oric 

110 F 



□ jeux en basic sur atmos 

49 F 

□ manuel de rél 11 . 

138 F 





□ 56 prog. pour oric . . . 

. 78 F 

□ t-dos et ses fichiers . 

150 F 





INTERFACE T.V. 



Cette interface va cous permettre de transformer votre moniteur couleur en T V 
□ interface TV 1390 F 


Cassettes vierges C20 

□ les 5. 

les 10 

i disquette vierge 3 pouces 


45 F 
80 F 

35 F 



TELESTRAT 

La télématique à la portée de tous I 
Puissant (64 K), doté d'un basic "costand' (plus de 250 
instructions), compatible ATMOS ou ORIC (par cartouche) 
accompagné d'un lecteur de disquette double tète (400 K) 
le TELESTRAT est déjà ainsi un ordinateur 'top niveau 
Ajoutez-y toutes les ressources télématiques qu'il est capable 
de gérer sans interface, câble ou logiciel supplémentaire puis 
que le TELESTRAT est le seul ordinateur ou toutes les lonc 
dons 'MINITEL' sont intégrées d’origine et vous comprendre; 
que le TELESTRAT c'est l'ordinateur de demain disponible 
dès aujourd'hui ! 


□ TELESTRAT 

□ souris 

□ cartouche ROMATMOS 


□ cartouche ROMORIC 1 


3990 F 
490 F 
200 F 
200 F 




TIRVITT 2 

Esthétique, robuste, pratique le TIRVITT 2 vous séduira 1 
Contacts par micro-switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions 

TIRVITT 2 150 F 



Le "must" pour les amateurs de graphisme Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
'top niveau' des résultats obtenus, (ex options faire 
des points, traits, boites, cercles, texte, remplir.‘zoom', i 


CJgraphiscop 



990 F 


□ joystick compétition PRO 

. 170F 

bloc alun UHIC 

IbUf 

rialim 1? V pour pentel 

75 F 

□ rallong de bus 1 Slot 

.110F 


□ câble imprimante. 160 F 

□ stylos pour MCP40 70 F 

-Q r o u lea u » papiers M G P4 0 (par 2) t v~ —85 f * 



Cette interface vous permet de laisser brancher en per 
manence trois appareils utilisant la prise péritel 
□ interface multipéri. 750 F 


COMMENT COMMANDER : Je possède : OORIC1 DATMOS 

- Cocher tels) artidefsf désiréls) ou faites-en uoe liste sur une feuille â pan - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F) 


NOM : _ 

ADRESSE : 


PRENOM : 


TEL :- 

CODE POSTAL : 


VILLE 


Mode de paiement : O chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


«m, H = 


Tou» no» prix ion! indicatifs «t rn (onction dtt stocks 
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Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de U h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro : 99.52.98. II. 
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EDITORIAL 


Ils arrivent, les premiers programmes pour TELESTRA T ! La machine se 
vend régulièrement et les plus passionnés défrichent les recoins cachés de 
sa mémoire. Le BASIC est rapide et performant malgré quelques 
imperfections et mots-clés oubliés. Il faut donc jouer d'astuce pour 
programmer efficacement. Qu'à cela ne tienne : si vos trucs sont valables, 
on les publiera ! 

OR IC International diffuse une mini notice réservée aux "développeurs". Là, 
sont consignées quelques indications précieuses qui peuvent faire gagner 
bien du temps. 

Enfin, dernière bonne nouvelle, Fabrice BROCHE propose sa collaboration 
technique et répondra aux questions les plus fréquentes. N'hésitez pas à 
écrire à la rédaction : nous ferons le nécessaire pour permettre à tous les 
utilisateurs de profiter pleinement des possiblités cachées de la machine. 

LA REDACTION 


ORDIELEC 

1 9, rue Hippolyte Flandrin 
69001 LYON 
Tél. 78.27.80.17 

Par minitel de 12h15 à 14h00 
et de 19h30 à lOhOO à ce même numéro 

SPÉCIALISTE ORIC 


COMMANDE ANCIENS NUMEROS 


(valable jusqu'à épuisement des stocks) 


Numéros 6 à 21 . 30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1.2.3. 4.5.8.16. 

NOM .Prénom . 

Adresse . 


Démonstration Tolestrat 
en permanence 

Composante connectlque 
et cables. 

Compatibles IBM. 


Code Postal .Ville 


Frais de port : 7,10 F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00. F au-dessus 


|Ci-joint, chèque bancaire ou postal de 



5 




























COURRE? 



Nous croyons bon de rappeler 
les quelques points suivants : 

-Le serveur 3615 code MHZ 
permet de poser des questions à 
la rédaction ne nécessitant pas 
de longs développements. Les 
réponses sont, en général, don¬ 
nées sous 48 heures. 

- Pour les questions posées 
par courrier, il est indispensable 
de joindre une enveloppe affran¬ 
chie self-adressée pour la répon¬ 
se. Seuls les abonnés en sont 
dispensés, à condition de fournir 
l'étiquette qui accompagne Théo¬ 
rie tous les mois. 

- Le courrier technique a ses li¬ 
mitations. D'abord, ne posez pas 
plus de 3 questions par lettre. 
Ensuite, ce courrier ne doit con¬ 
cerner que le contenu de la re¬ 
vue. Il nous est impossible de ré¬ 
diger des programmes ou de 
donner des cours de BASIC. 

- En dernier recours, pour les 
questions urgentes, vous pou¬ 
vez utiliser le téléphone du mer¬ 
credi ou du vendredi matin. Les 
lignes étant très encombrées, ne 
vous lancez pas dans de longs 
discours : pensez à ceux qui 
attendent ! 


De Gilles BOUSSARD 
13 AIX EN PROVENCE 

- Est-il normal que le système se 
plante lors de l'extinction du télévi¬ 
seur? 

-Normal... oui et non ! Un systè¬ 
me informatique est toujours sensi¬ 
ble aux variations brusques de 
tension et aux parasites. Le fait de 
couper le téléviseur relié à l'ORIC, 
avant d'arrêter celui-ci, est forcé¬ 
ment néfaste. L'alimentation de 
l'ORIC est assez peu filtrée : elle 
expose la machine aux microcou¬ 
pures ou surtensions véhiculées 
par le réseau. La liaison entre 


l'ORIC et le téléviseur est, elle 
aussi, le siège de "parasites" au mo¬ 
ment de la coupure. Résultat ? 
L'ORIC se plante irrémédiablement 
et... presque à coup sûr! 


De D. FORTIER 
42 SAINT-ETIENNE 

- Existe-t-il pour l'ORIC une exten¬ 
sion susceptible de réaliser l'incrus¬ 
tation vidéo, un peu comme sur 
THOMSON ? 

- Non, à notre connaissance, il 
n'existe aucun produit répondant à 
ces caractéristiques, ce qui est, par 
ailleurs, assez regrettable. 

Il faut néanmoins préciser que ce 
genre de matériel n'est pas facile à 
mettre au point par un amateur 
moyen... 


De Bruno DELACOURTE 
05 GAP 

- Est-il possible, au moyen d'une 
interface et/ou d'un logiciel, d'utili¬ 
ser une souris sur l'ORIC ? 

- Oui, bien sûr, dans l'absolu c'est 
possible... à condition d'être capa¬ 
ble de développer l'interface (qui 
pourrait être une liaison série RS 
232) et le logiciel car, pour le mo¬ 
ment, rien n’existe dans ce domai¬ 
ne pour notre pauvre ORIC ! 


De Jean-Luc SIRET 
72 LE MANS 

- Que peut faire un auteur qui sou¬ 
haiterait faire éditer un logiciel pour 
ORIC sur K7, tous les éditeurs ac¬ 
tuels lui fermant la porte ? 

- Effectivement, hormis "Bleu Ciel 
Informatique" qui continue à éditer 
du logiciel sur ORIC, plus personne 
ne veut prendre de risque sur cet 
ordinateur : marché réduit, fiabilité 
douteuse du chargement cassette, 
piratage excessif sont probable¬ 
ment les causes de cette situa¬ 
tion... 

Il n’y a donc pas de solution, sinon 
celle de vendre, à son propre 
compte avec une diffusion margi¬ 
nale, le fruit de son travail ou en¬ 
core... en faire profiter les lecteurs 
de THEORIC et recevoir une rému¬ 
nération sous forme de droits d'au¬ 
teur! 


De Jacques 
VAN RENTERGHEM 
82 MONTAUBAN 

- Où trouver des informations sur 
le 6502 ? 

- Le 6502, microprocesseur équi¬ 
pant l'ORIC, a fait l’objet d'une littéra¬ 
ture assez volumineuse. Nous pour¬ 
rions vous suggérer de lire les titres 
suivants : 

• Programmation du 6502 (SY¬ 
BEX) 

• Application du 6502 (SYBEX) 

• L'assembleur facile du 6502 (EY- 
ROLLES) 

• Programmation en Assembleur 
6502 (Editions Radio) 

Après lecture de ces ouvrages, le 
6502 n'aura plus aucun secret pour 
vous ! 


De Gilles MESCHER 
75 PARIS 

- Certains numéros de THEORIC, 
hélas épuisés, contenaient des arti¬ 
cles intéressants. N'envisagez- 
vous pas de les rééditer ? 

- Rééditer le numéro épuisé 
d'une revue est une opération très 
onéreuse qui ne peut se faire 
qu’avec la certitude de vendre une 
quantité suffisante d'exemplaires... 
Il ne nous est pas possible de pren¬ 
dre un tel risque. Par contre, en 
fonction des demandes, nous pour¬ 
rons envisager de réaborder un 
sujet traité dans un de nos premiers 
numéros. C'est le cas des mots- 
clés du BASIC qui semblent pas¬ 
sionner bien des utilisateurs ! 



Aïe, aïe, aïe ! Il y avait longtemps 
que ça n'était pas arrivé... Quoique 
l'on ait pu vous dire au téléphone 
(pour ceux qui ont appelé la rédac¬ 
tion), il y avait bien une erreur dans 
le chargeur de DATA de ATMITEL 
(Théorie n° 27)... 
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A la ligne 135, les 3 NOP (codes 
EA) ont remplacé mystérieusement 
une instruction. 

Pour éviter d’altérer la somme de 
contrôle, il faudra ajouter une ligne : 

51 DOKE A0+#FC, 

#B24D:DOKE A0+#FE, 

#6058 

D’autre part, attention à bien faire 
concorder les noms attribués au fi¬ 
chier binaire lors de la sauvegarde 
(ligne 64 du chargeur) et de l'utilisa¬ 
tion (ligne 32 de ATMITEL)... 

Voilà qui remettra les choses en or¬ 
dre ! 



TOURNOI d’OTHELLO 

A ne pas manquer si le jeu d’Othel¬ 
lo et la micro-informatique vous 
branchent ! Un tournoi, organisé 
par la Fédération Française d’Othel¬ 
lo et par le club St-Michel Informati¬ 
que aura lieu le 22 mars à la salle 
municipale de St-Michel sur Orge. 
Renseignements et inscriptions au¬ 
près de : 

François AGUILLON 
4, rue Raie Tortue 

91240 SAINT-MICHEL-SUR-ORGE 
Tél. 1.69.01.75.87 


CLUBS 

Un nouveau club ORIC a vu le jour, 
réunissant les passionnés de télé¬ 
matique et de micro. 

STRATMO'S CLUB 
8, rue de l’Espère 
06510 CARROS-LE-NEUF 
Serveur Minitel : 
93.08.28.44 ou 93.98.12.21 


TELESTRAT A L’HONNEUR 

Notre confrère MINITEL MAGAZINE 
présente, dans son numéro 20 de 
février, le TELESTRAT comme 
étant le "Petit Génie du Minitel". Do¬ 
maine d'application : les petits com¬ 


merçants, les professions libérales, 
etc. Seule une remarque est un 
peu surprenante : en parlant de 
"confrères de la presse informati¬ 
que ayant présenté le TELESTRAT 
comme un micro-ordinateur", Patri¬ 
ce Neger (interviewé pour la cir¬ 
constance) répondait : 

"Ils ont tort, c'est exclusivement un 
serveur. Il ne peut en aucun cas ser¬ 
vir à faire du traitement de textes ou 
à programmer en BASIC..." 

Et l'HYPERBASIC alors, on y re¬ 
nonce ? 


LE MINITEL A LA PAROLE 

Après l'image, le son d'une voix ! 
Elle est synthétique, bien sûr. Con¬ 
çu par 3 collaborateurs de la revue 
"Micro Systèmes" et architecturé 
autour du célèbre MEA 8000 de 
RTC, ce synthé vocal risque de bou¬ 
leverser le marché de la télémati¬ 
que. Il suffisait d'y penser ! 



Avant d'accuser qui que ce soit 
pour l'absence de logiciels de quali¬ 
té sur l'ORIC, il serait bon de balayer 
devant nos portes... Un des can¬ 
cers qui mine la production de logi¬ 
ciels est certainement le piratage. 
En France, c’est devenu un sport 
national ! Qui n'a pas rêvé de possé¬ 
der à moindre prix un programme 
qui lui fait envie ? 

Ah, si nous étions raisonnables ! 
Tiens, le "Shareware", vous con¬ 
naissez ? Chacun verse une petite 
contribution à l'auteur du logiciel 
dont il utilise une copie. Doux 
rêve ? Oui, certainement, à moins 
d'acquérir la sagesse des Améri¬ 
cains. Pensez-y en lisant ce qui suit 
et, si le FORTH vous passionne, 
que le F83 vous fait envie, pour¬ 
quoi ne pas remercier notre chroni¬ 
queur ? Lisez ce qui suit ! 

A PROPOS DU FORTH 
Plusieurs lecteurs nous deman¬ 
dent où se procurer le Forth F83. Il 
semble en outre que la cassette du 


FIG-Forth TANSOFT ne soit plus 
distribuée. 

Michel ZUPAN nous communique : 
Le Forth F83 n'a pas encore trouvé 
de distributeur. Les éditeurs hési¬ 
tent beaucoup à lancer un nouveau 
logiciel pour ATMOS. Le Forth est 
souvent jugé comme un langage 
trop confidentiel. Seule la version 
pour TELESTRAT trouvera peut- 
être un débouché.? 

Se pose, de plus, le problème de la 
documentation : le vocabulaire de 
base du F83 atteint en effet les mil¬ 
le mots ! 

Aussi, vais-je dans l’immédiat procé¬ 
der comme avec le T-FORTH en dif¬ 
fusant le F83 en "freeware". 

Les lecteurs forthiens intéressés 
peuvent donc m'adresser une dis¬ 
quette SEDORIC accompagnée de 
dix timbres (frais de photocopie et 
d'envoi). La disquette leur sera re¬ 
tournée avec le F83 et ses fichiers. 

Je rappelle que le F83 tourne exclu¬ 
sivement sur ATMOS avec drive 
DISCORIC. Bien Forth à vous ! 

Michel ZUPAN 

12, rue du Haut-Kœnigsbourg 
67800 HOENHEIM 


SUS A LA RUMEUR ! 

Qu’elle colporte des ragots de traite 
des blanches dans certains maga¬ 
sins de vêtements, ou un faux 
SIDA chez telle charmante actrice, 
la rumeur a souvent les mêmes ori¬ 
gines : la jalousie, l'envie ! 

Certains revendeurs, probable¬ 
ment mal informés ou mal intention¬ 
nés laissent entendre que THEO- 
RIC va cesser de paraître... "donc 
inutile d’acheter un TELESTRAT 
ou un MICRODISC pour votre 
ATMOS, prenez plutôt un "ATARI 
520" ou un "XYZ PC". Tenez, j'ai 
justement une promotion sur ce 
modèle". Et voilà... le tour est joué ! 
Parti pour acheter une machine, 
vous ressortez du magasin avec un 
autre. Procédé commercial classi¬ 
que certes, mais argument contes¬ 
table. THEORIC reste (et restera 
tant qu’il y aura suffisamment de lec¬ 
teurs et d'abonnés) le support de 
toute l'information concernant "les 
ORIC". Nous avons en réserve suffi¬ 
samment de programmes et d'arti¬ 
cles pour satisfaire nos lecteurs 
pendant de longs mois. Qu'on se le 
dise ! 
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CES FICHIERS 

DONT TOUT LE 

MONDE PARLE, 

D. VASILJEVIC ^ 


E ncore un petit effort ! Bientôt, vous saurez tout (ou presque) 
sur les fichiers. Notre dernier article sera en fait un listing qui 
vous permettra de créer un répertoire des articles parus dans 
THEORIC... En piste pour cette avant-dernière étape ! 


III. 2 

Simulation des commandes 
manquantes 

Le tableau synoptique que vous 
venez de consulter récapitule 
toutes les commandes de traite¬ 
ment des fichiers de SEDORIC et 
FTDOS. Les commandes concer¬ 
nant le formatage, l’initialisation, la 
configuration du système etc... ne 
sont pas répertoriées, car elles sont 
sans rapport direct avec les fichiers. 
Les commentaires et descriptions, 
étant successifs, méritent quel¬ 
ques explications : 

- D'abord les généralités. 
Contrairement au SEDORIC, le 
FTDOS n’offre pas de possibilité de 
paramètres, jokers ou de suffixe. La 
seule exception sont les com¬ 
mandes à préfixe IMSAVE et 
IMLOAD qui sont en réalité des 
commandes bien à part et que 
SEDORIC ne possède pas. 
Examinons les suffixes. Ceux-ci 
sont O, M et U : 

-O efface et remplace le fichier 
sur disquette par le fichier en mé¬ 
moire centrale 

- M juxtapose le fichier en mé¬ 
moire avec celui de la disquette 

- U conserve le fichier existant sur 
la disquette sous le même nom 
suivi d'extension ".BAK" et sauve¬ 
garde la nouvelle version sous son 


extension habituelle. Toutes ces 
options ne concernent pas les 
fichiers du type DATA. 

Comment obtenir les mêmes résul¬ 
tats avec FTDOS ? 

L'option O correspond tout simple¬ 
ment à ISAVE, laquelle de toutes 
façons écrase l'ancien fichier. 

L'option M accolle le fichier de la 
mémoire centrale à celui sur la dis¬ 
quette, sans aucun lien mais per¬ 
mettant ainsi leur chargement d'un 
seul coup. On peut ainsi stocker 
plusieurs routines, écrans ou 
même programmes en basic (ayant 
les numéros de lignes identiques). 
Une fois chargées en mémoire, les 
routines en langage machine sont 
appelées à l'adresse de leur départ, 
les écrans sont déplacés pour être 
affichés et pour les programmes en 
basic les pointeurs sont modifiés 
tour à tour de façon à lancer le 
programme que l'on désire. Cette 
commande ne peut pas être simu¬ 
lée en utilisant simplement les com¬ 
mandes de FTDOS. Il faut de préfé¬ 
rence réaliser cette juxtaposition en 
mémoire centrale et sauver l'en¬ 
semble sous forme binaire. Une 
autre solution serait la création d'un 
fichier séquentiel. Les routines, les 
programmes ou les écrans seront 


transformés en simple texte par 
bloc de 254 caractères et la variable 
alphanumérique sauvegardée au 
fur et à mesure de la transformation. 
On perdra quelques octets à la fin 
de chaque partie, mais on pourra 
travailler chaque élément indépen¬ 
damment des autres. 

Pour simuler l'option U, plusieurs 
commandes de FTDOS sont néces¬ 
saires. Si le fichier à sauver s'ap¬ 
pelle "NOM”, il faut enchaîner la 
séquence suivante : 

IERSET : !SEARCH"NOM";IF 
PEEK (#489) = 1 TH EN 
!SAVE"NOM"+"U.EXT": 
!LOAD"NOM.EXT":!SAVE"NOM. 
BAK": 

! LO AD"NOM "+"U. EXT" :S AV E" 

NOM.EXT": 

!DEL"NOM" = "U.EXT" : Ouf! 

Il est plus simple de changer le nom 
de l'ancienne version par : 

!RENAME"NOM.EXT=NOMBAK. 
EXT" et de sauver la nouvelle 
version par !RENAME"NOM.EXT. 

Et si "NOMBAK.EXT" existe déjà, le 
détruire auparavant. 

Voyons maintenant les paramètres 
des commandes : 

- "J" réalise le vrai "MERGE" mais 
contrairement au IMERGE, le chaî¬ 
nage est fait sur la disquette et non 
en mémoire centrale. De ce fait, 
l'ordre des morceaux est inversé. 
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Pour obtenir le même résultat faire 
!SAVE"UN" : !LOAD"DEUX" : 
!MERGE”UN"!SAVE“LE TOUT". 

-"N" qui empêche le démarrage 
automatique après le chargement 
correspond à un simple 
!LOAD"NOM M , car FTDOS ne pos¬ 
sède pas de lancement préprogram¬ 
mé par "AUTO” lors de la sauve¬ 
garde. 

- "V" qui permet de visualiser le 
"STATUS” est beaucoup plus 
complexe. Après son exécution, 
les variables ST. ED, FT et EX 
contiennent les adresses du début 
et de la fin, le type du fichier et 
l'adresse de démarrage. Pour le 
FTDOS, les deux premières valeurs 
sont stockées en page 4 # 48D à # 
490. L'adresse de démarrage est 
celle du début du fichier, à moins 
qu'elle ne soit modifiée lors du 
chargement. 

Une autre possibilité de SEDORIC 
est l'emploi des jokers et "?" qui 
permettent la recherche, le cata¬ 
logue, la destruction etc... de tous 
les fichiers soit ayant les noms de 
même racine, soit de mêmes 
terminaisons ou de tous les fichiers 
du même nom quelque soit le 
nom ! Cette commande n'est pas 
simulable par celle du FTDOS. On 
pourrait éventuellement réaliser 
une boucle précédée par IERSET 
et contenant toutes les extensions 
en variant le nom, mais quel travail ! 
La seule solution est la création 
d'une routine, mais celà dépasse 
les limites de notre propos. 


Passons maintenant aux com¬ 
mandes particulières. 

La commande DEL, qui efface tous 
les fichiers après confirmation pose 
le même problème que les jokers. 

Par contre DESTROV peut être 
remplacé par NNIT. 

La commande DELBAK est, bien 
entendu, sans objet pour les 
utilisateurs du JASMIN, ainsi que la 
commande STATUS. 

Les effets des instructions BUILD, 
TYPE et LTYPE peuvent être 
simulés à l'aide des petits pro¬ 
grammes : 

Voir listing 1 

Pour LTYPE, la même chose que 
pour TYPE avec LPRINT à la place 
de PRINT. Dans ce dernier pro¬ 
gramme !ERR GOTO remplace U 
(NL) de SEDORIC, par contre & 
(-NL) (type du prochain enregis¬ 
trement à lire) n'est pas résolu. 

En ce qui concerne les fichiers à 
accès direct, FTDOS utilise la 
sauvegarde directe des variables 
sur disque, alors que SEDORIC 
passe par une phase intermédiaire 
et range les variables dans le 
tampon puis sauve le tampon sur 
disque. A la lecture, le fichier du 
disque est chargé dans le tampon, 
ensuite les variables peuvent être 
chargées à partir de celui-ci. Ceci 
nécessite chaque fois deux com¬ 
mandes distinctes, ainsi qu'une 
place pour le tampon en mémoire 
centrale. L'avantage du principe est 


uniquement dans la vitesse 
d'échange variables-buffer, qui 
permet le traitement des fichiers 
très rapide et le nombre d'accès au 
disque très restreint. Mais pour 
celà, il faudrait une mémoire net¬ 
tement plus importante que celle 
d'ORIC. Si vous désirez à tout prix 
travailler sur le buffer, il suffit de 
limiter la mémoire destinée au 
basic. La partie supérieure ainsi 
protégée servira de tampon II faut 
ensuite écrire un petit programme 
de transfert des variables dans ce 
tampon Les chaînes alphanumé¬ 
riques seront copiées caractère par 
caractère, les variables entières par 
le transfert des 2 octets qui les 
représentent, les variables réelles 
par le transfert des 5 octets de la 
forme flottante abrégée et les 
octets par simple "POKE". Les 
deux octets précédant chaque 
variable serviront à son identifi¬ 
cation. 


Une autre méthode, plus simple, 
serait d'utiliser les tableaux qui 
seront lus au début et écrits à la fin 
du traitement par simple IMLOAD et 
IMSAVE. Les deux instructions 
que SEDORIC ne possède pas et 
qui pourront être simulées juste¬ 
ment par stockage des éléments 
du tableau dans le buffer !• 


CO' 1 '*// 



1000 

HEM 

BUILD 




1010 

CLS 

:AS = : ! CREATE" 

BUILD,S=l" 


1020 

FOR 

J =0 TO 2000 STEP 

254 : FOR I = 1T0254 


1030 

G ET 

S#:PRINT SS 

: AS+SS 

: NEXT I 


1040 

! WR 1 

TE 1 : REM AS 




1050 

A0 = " 

": N EXT I,J 




1060 

CLS : 

INPU'f'AUTRE 

ECRAN 

" ; SS : IF SS = "0" OR 

SS = "1"OR SS = "OU 13 


TH EN 

CLS: AS = " 

GOTO 

1020 


2000 

REM 

TYPE 




2010 

FOR 

1=0 TO 254: 

AS+"-" 

": NEXT 1: 


20201010! 

ERSET:!ERR 

GOTO 1 

070:!OPEN"BUI LD= 1 : ! 

REM1ND1" 

2030 

CLS : 

FOR J=1 TO 

2000: F 

OR I=1T0254 


2040 

TAXE 

, 1 : REM AS 




2050 

PRINT AS ; : N EXT 

I,J 



2060 

G ET 

SS:CLS GOTO 

1020 



2070 

END4 

> 
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A VOS 
MESURES 


E t dire que pour certains, éducatif rime avec rébarbatif ! Voici 
un brillant exemple de ce qu'il est possible de faire avec un 
ORIC dans le domaine de l’enseignement. Si votre petit frère 
ou votre fille sont en âge d'apprendre à mesurer, vous vous devez 
de consacrer quelques longues minutes à taper ce listing : le program¬ 
me en vaut la peine ! 



Michel POUCHIN 


Pour apprendre à mesurer, on peut 
bien sûr utiliser une règle graduée, 
mais dès que celle-ci est dessinée 
sur l'écran d’un ordinateur, tout 
change ! 

Sous forme de jeu, il est proposé à 
l'enfant de trouver le résultat d’une 
mesure exprimée en millimètres ou 
centimètres. Le programme pro¬ 
pose plusieurs niveaux de difficul¬ 
té. Les premières questions sont 
du genre QCM, ce qui peut guider 
l'élève, mais par la suite, il devra 
donner lui-même la réponse. 

Le temps pourra, au choix, être 
limité ou illimité. Le segment de me¬ 



<4 

0«S 


H 


sure sera lui, bien placé ou non. Se¬ 
lon la difficulté, la règle pourra être 
déplacée de quelques millimètres. 
Un bon résultat permettra à diffé¬ 
rents véhicules de rejoindre leur ga¬ 
rage... 


Les résultats sont exprimés sous la 
forme d'un graphique. 

Une illustration sonore agrémente 
le jeu dont la présentation n'a rien à 
envier aux réalisations commer¬ 
ciales. 


10 REM POUCHIN Michel le 15/9/86 
20 HIMEM#9750 

30 DD=72:LG=18:LD=239:F=PEEK <#D001)<> 

0 

40 EF*=" 

": REM 37 espaces 

50 D$=CHR*(4):E$=CHR$(27):CALL#F8D0+F 
*53 

60 GOTO1980 

80 REM ===== code ======== 

90 REM =================== 

100 DATAAD,60,97,85,0,AD,61,97,85,1,A 
2,7, AO, 2,81,0, C8, 91,0,88,88,10,F7,C8,A 
9,40 


110 DATA91,0,CA,10,F,A9,1,18,6D,60,97 
,8D,60,97,90,3,EE,61,97,60,A9,28,18,65 
,0 

120 DATA85,O,90, 05,E6, 1,80,DI,O,0,0,0 
,0 

130 DATAAO,1,AD,A2,97,FO,C,AD,77,2,10 
,7,8E,Al,97,8C, AO , 97,60,C8, AD,8, 2 , AE ,A 
3,97 

140 DATADO,19,A2,0,DD,EB,97,FO,E9,ES, 
EO,A,DO,F6,C8,DD,EB,97,FO,E1,C8,E8,DD, 
EB 

150 DATA97,FO,DA,A2,C,AO,5,DD,EB,97,F 
0, DI , E8, C8, CO, C, FO, BC, DO, F3, 97, A8, B2, B 
8 

160 DATA9A,90,8A,80,87,8B,84,AD,84,AF 
,AC,BC,9C,B4,99,20556 

170 F0RI=#9765TÛ#97FD:READV* 
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0 . 


180 V=VAL ( n # ,, +V$) : N=N+V: P0KEI, V: NEXT 
190 READV: IFNOVTHENPRINT"ERREUR DATA 
(8 premières 1ignés)": STOP 
200 RETURN 

210 REM ========================= 

220 REM == long. seg. debut/-f in === 

230 REM ========================= 

240 L=INT(6+RND(1)*85):X0=100-L:IFXO> 
OFTHENXO=OF 

250 X0=INT(RND(1>*X0)*2+18:X1=X0+L*2 
260 LG=18:LD=238:IFDA=0THEN290 
270 V=X0-DA*2:IFV>LGTHENLG=V 
280 V=X1+DA*2:IFV<LDTHENLD=V 
290 RETURN 

300 REM ================= 

310 REM == titre HIRES == 

320 REM ================= 

330 PAPER6:INK4:HIRES:P0KE618,10:PAPE 
R6:INK4 

340 A$="JEU NUMERO "+MID$(STR»(NJ),2) 

:CURSET190,4,0:FILL11, 1,22 
350 CURSET48,4,0: FILL11,1,16:CURSET42 
,4,0:FILL11,1,3 

360 CURSET58,6,O:F0RJ=1T0LEN(At) : CHAR 
ASC(MID$(AS,J,1)),0,1 :CURM0V10,O,O:NEX 
T 

370 RETURN 

380 REM ========================= 

390 REM == cadre choix réponses = 

410 CURSET126,DD—1,0:FILL33,1,22:CURS 
ET48,DD—1,O:FILL33,1,19:V=DD-8 
420 CURSET42,V,0:FILL40,1,22 
430 CURSET36,V,O:FILL40,1,8 
440 CURSET12,V,0:FILL40,1,12 
450 REM == et mess.cache == 

460 CURSET30,32,O:FILL24,1,6 
470 CURSET144,32,O:FILL24,1,4 
480 A*="Choisis ta rlponse" 

490 CURSET36,32,O:G0SUB950 
500 A*= M < # & et ESPACE > " 

510 CURSET36,48,O:GOSUB950 
520 CURSET29,27,1:DRAW122,0,1:DRAW0,3 
4,1 :DRAW-122,0,l:DRAW0,-34,1 
530 CURSET48,106,0:FILL8,1,6 
540 CURSET57,106,0:A$= M F A U X":GO 
SUB950:RETURN 

550 REM ===================== 

560 REM == rect.écrit.rep. == 

570 REM ===================== 

580 CURSET120,DD,O:FILL16,1,22:CURSET 
48,DD,O: FILL16,1,19 
590 CURSET30,44,O:FILL11,1,6:AS="Ecri 
s la mesure :":CURSET36,44,O:G0SUB950 
600 CURSET36,54,1:DRAW96,0,1:CURSET42 
,DD+4,O:FILL8,1,1 

610 CURSET48,90,0:FILL8,1,6:CURSET63, 
90,0:A$="F A U X":G0SUB950:RETURN 
620 REM ======================= 


630 REM == place des camions == 

640 REM ======================= ^ 

650 CURSET228,40,O: FILL72,1,22:CURSET 
198,40,O:FILL72,1,22 
660 F0RJ=40T0104STEP16:CURSET180,J,O: 
FILL8,1,19:CURSET210,J,O:FILL8,1,19:NE 
XT 

670 REM == et couleurs == 

680 CURSET6,188,0:FILL8,1,1 
690 V=WW-7:CURSET6,V,O:FILL2,1,0 
700 0=WW—15:CURSET6,0,0:FILL8,1,1 
710 RETURN 

730 REM == fléché pour réponse == 

750 V=DD—8:PF=—1 

760 REM == ou bien la == 

770 CURSET18,V,O:FILL8,1,23 
780 CURSET24,V,O:CHAR92,O,1:CURM0V6,0 
,0: CHAR125,0,1 
790 RETURN 

810 REM === trace du segment ===== 

830 CURSETXO,WW-4,V:CURMOVO,2,V:CURMO 
V0,-1,V 

840 DRAWL*2,O,V:CURMOVO,1,V:CURMOVO,- 
2,V 

850 RETURN 

860 REM =================== 

870 REM == coul.segment === 

880 REM =================== 

890 EN=ABS(EN=0):CURSET6,WW-4,O:FILL3 
,1,EN:RETURN 

900 REM ======================= 

910 REM == aff.mess.en HIRES == 

920 REM ======================= 

930 A$="temps Dcoul3":CURSET72,188,0 
940 REM == ou bien la == 

950 FGRJ=1T0LEN(A»):CHARASC <MID$(A*,J 
,1)),0,1:CURM0V6,0,0:NEXT:RETURN 
960 REM ========================== 

970 REM === trace de la réglé ==== 

980 REM ========================== 

990 CURSET12,WW,1:DRAW218,0,1:DRAW0,4 
0,1:DRAW—218,O,1 :DRAWO,-40,1 
1000 CURSET 18, WW, 3: IFSOOOTHENPLAY1,0 
,0,0 

1010 FORI—1T010:DRAWO,20,1:CURM0V2,-2 
0,3 

1020 FORJ=1T04:DRAWO,5,1:CURM0V2,-5,3 
: IFSOOOTHENSOUND1, ( 11-1 ) * (5-J) *10, SO 
1030 NEXT 

1040 DRAWO,10,1:CURM0V2,-10,3 
1050 FORJ=1T04:DRAWO,5,1:CURM0V2,-5,3 
: NEXT: NEXT: DRAWO,-20, 1 
1060 CURSET 16, WW+25, 3: IFSOOOTHENPLAY 
0,0,O,O 

1070 FORI=48T057: CHAR1,0,1:CURM0V20,O 
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,3:NEXT 

1080 CURMOV—3,0,3:CHAR49,O,1:CURM0V6, 
0,3:CHAR48,0,1 

1090 CURSET60, 188,0: FILL8,1,6:G0SUB93 

0 

1100 RETURN 

1120 REM == a-f-f.4 propositions ==== 

1130 REM ========================== 

1140 REM = tirage au sort de la === 
1150 REM = place des propositions = 
1160 REM ========================== 

1170 F0RJ=0TQ3:T(J)=—1 :NEXT 
1180 FORJ=0T03:V=INT(RND(1)*4) 

1190 REPEAT:V=V+1:IFV=4THENV=0 
1200 UNTILT(V) CO:T(V)=J:IFJ=OTHENBP=V 
1210 NEXT 
1220 CH(0)=L 

1230 IFRND < 1 ) <.5THENV=1ELSEV=-1 
1240 CH(1> =L+V 

1250 V= INT (RND ( 1 ) * (L-2) +2) :CH(2)=L-V 
1260 V=INT(RND(1)*(98-L)+2):CH(3)=L+V 
1270 REM ========================== 

1280 REM == écriture des 4 choix == 
1290 REM ========================-= 

1300 YD=DD:REM lere pos.rep 

1310 F0RJ=0T03:MM*=MID*(STR*(CH(T(J)) 

) ,2) : V=LEN(MM*)-1 

1320 IFV=00RRND(1X.5THENMM*=MM* + " mm 
GOTO1360 

1330 C*=LEFT*(MM*,V):M*=RIGHT*(MM*,1) 
1340 MM$=C$+" cm ":IFM*="5"ANDRND(1)< 
.5THENMM*=MM*+"et demi": GOTO1360 
1350 IFM*O"0"THENMM*=MM*+M*-t-" mm" 



1530 RETURN 

1550 REM S/F' création de caractères 

1570 V=#B400—#1C00*PEEK(#21F): NI = 1:C= 
124:G0SUB1590:C=47:G0SUB1590 
1580 C=37:G0SUB1590:C=36:GOSUB1590:RE 
TURN 

1590 F0RH=0T07:P0KEV+8*C-*-H,VAL(MID*(A 
$,NI,2)):NI=NI+2:NEXT:RETURN 
1600 REM ========================= 

1610 REM == titre du programme === 

1630 TEXT:CLS:P0KE618,2:PAPER6:INKO 
1640 PRINT:PRINTSPC(4)D*E*"P"E*"J"E*" 
C JE MESURE "E*"V"D* 

1650 PRINT:PRINTSPC(20)"(cm et mm)" 

1660 A*=EF* :GOSUB1520: PRINT: PRINT: PRI 
NT:RETURN 

1670 REM ======================== 

1680 REM == redef.caractères ==== 

1700 DATA®,8,4,28,2,30,34,30,0 
1710 DATA_,0,0,14, 16, 16, 14,4,8 
1720 DATAI,16,8,28,34,62,32,30,0 
1730 DATA1,4,8,28,34,62,32,30,O 
1740 DATAI,O,8,24,63,63,24,8,O 
1750 DATAI,0,4,6,63,63,6,4,0 
1760 DATA\,0,0,0,63,63,0,0,0 
1770 DATA#,12,12,12,12,45,63,30,12 
1780 DATA&,12,30,63,45,12,12,12,12 
1790 F0RI=1T09:READA*:C=ASC(A*) 

1800 F0RN=0T07: READB:P0KE46080+8*C+N, 
B 


1360 CURSET54,YD,O 

1370 F0RK=1TOLEN(MM*): CHARASC(MID*(MM 
*, K, 1)) , O,1:CURM0V6,O,O:NEXT 
1380 YD=YD+8:NEXTJ:RETURN 
1390 REM ========================== 

1400 REM == préparation cm et mm = = 
1410 REM == pour réponse chif-free = 


1810 NEXTN,I 

1820 RE*="ESC pour recommencer tous 1 
es choix" 

1830 AP*="Appuyez sur une touche guel 
conque" 

1840 ME*="Appuyez sur le bon numlro" 
1850 RETURN 


1430 W=DD+4:CURSET72,W,O:EC=RND(1)<.5 
: IFEC <0THEN1460 

1440 A*="cm mm":G0SUB950:CURSET96,W 

,0:FILL8,1,8:CURSET66,W,O:FILL8,1,8 
1450 CURSET54,W,O:FILL8,1,12:P0=60:CU 
RSETPO,W,O:FILL8,1,63:GOTO1480 
1460 AS=" mm":G0SUB950:CURSET84,W,O 

:FILL8,1,8 

1470 CURSET60,W,O: FILL8,1,12:P0=66:CU 
RSETPO,W,O:FILL8,1,63 
1480 RETURN 

1490 REM ========================== 

1500 REM === écrit.ligne status === 
1510 REM ========================== 

1520 P0KE#BB82,16:E=#BB83:F0RK=1T0LEN 
(A*) :POFEE,ASC(MID*(A*,K,1)):E=E+1:NEX 


1870 REM * entree du temps * 

1880 REM ========================= 

1890 PRINTCHR*(17); :INPUT"QUEL TEMPS 
(en secondes)"; ZZ* :T=INT(VAL (Z Z*)):PRI 
NTCHR*(17) 

1900 IFT>2ANDT <61THENT=T *100:RETURN 
1910 PRINT"Entre 3s et 60s SVP.":F0RI 
= 1T03: PRINTCHR*(11); :NEXT:PRINTCHR*(14 
); : GOTO1890 

1920 REM====== saisie caractère ==== 

1930 A*=KEY*:REPEAT:A*=KEY*:UNTILA*<> 

Il II 

1940 RETURN 

1960 REM == ici début programme ==== 
1980 GOSUB1630:GOSUB170 
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1990 GOSUB1790 

2000 REM=========================== 

2010 REM ===== contrôle temps ===== 

2030 PRINT: PRINT" "ES"G"ES"F'Temps aut 
orisl pour les réponses "E$"V" 

2040 PR INT: PRINT" "ES"G"ES"T1"ES"D" 

ES"V\Î"ES"ATemps illimit] "ES"V" 

2050 PRINT:PRINT" "ES"G"E$"T2"ES”D" 
ES"V\}"ES"ATemps lirait] "ES"V" 

2060 PRINT: PR INT" "ES"L "ES"G"ES"T • " 
ES "V" 

2070 PRINT: PRINT" "ES"C"ES"O”MES" "ES 
"V" 

2030 GOSUB 1930: FOKE-SFC, PE EK (630) 

2090 IF AS O" 1 " AND AS < > " 2 " THEN2080 
2100 PL0T2+F,14,EFS:PL0T2+F,16,EFS 
2110 A=VAL(AS)*2+8:FL0T2+F,A,12:PL0T3 
+F,A, ">": PLOT4+F,A,8 
2120 V=0:IFAS="2"THENV=1:GOSUB1890ELS 
EWAIT100 

2130 P0KE#97A2,V 
2140 AS=RES:GOSUB1520 
2150 CL S: PRINT : PRI NT 

2160 FRINT:PRINT" "ES"G"ES"PFuissance 
sonore "ES"V" 

2170 FRINT: PRINT" "ES"G"ES"TO"ES"D" 

ES"V\>"ES"ASans son"ES"V" 

2180 PRINT: PRINT" "ES"G"ES"T1"ES"D" 
ES”V\>"ES"ASon faible"ES"V" 

2190 PR INT : PR INT" "ES ,, G"ES"T2"ES"D" 
ES"V\3"ES"ASon moyen"ES"V" 

2200 PRINT:PRINT" "ES"G"E$”T3"ES"D" 
ES"V\3- "ES"ASon fort"ES"V" 

2210 PR INT : PR INT" "E$"L "ES”G"ES"T'- " 
ES "V" 

2220 PRINT: PRINT" "ES"C"ES"Q"MES" "ES 
" V" 

2230 GOSUB1930:IFAS=ESTHENG0SUB1630: G 
QT02030 

2240 V=VAL(AS) : IFV=OANDAS<> ,, 0"THEN223 

0 

2250 IFV>3THEN2230 

2260 S0=V*5:IFS0=5THENS0=7 

2270 TJ=0:G0SUB2870 

2280 PRINT" "ES"G"ES“T 1"ES"D"ES"W\\>" 
ES"G"ES"T mesure normale "ES"V":PRINT 
:PRINT 

2290 PRINT" "ES "G"ES " T2 "ES"D"ES ” W \\]• ” 
ES"G"ES"Tsegment mal p1ac3"ES"V" 

2300 PRINTSPC(10)"mais on peut le d3p 
lacer":PRINT 

2310 PRINT" "ES"G"ES"T3"ES"D"ES"W\\3" 
ES"G"ES"Tsegment mal plac 3"ES"V" 

2320 PRINTSPC(10)"d3placement limit3" 
:PRINT 

2330 PRINT" "ES"G"ES"T4"ES"D"ES"W\\3" 
ES"G"ES"Tsegment mal p lac 3"ES"V" 

2340 PRINTSPC(10)"d3placement impossi 


b 1e!" : PRINT 

2350 PRINT" "ES"G"ES"T5"ES"D"ES"W\\3“ 
ES"G"ES"T m31 ange des 4 "ES"V" 

2360 PRINT:PRINT:PRINT" "ES"A"ES”SCho 
îsisses un ou plusieurs numlros "ES"V" 
2370 PRINTSPC(24 )ES"Dpuis RETURN" 

2380 PRINT:PRINT:PRINT" DEL pour reco 
mmencer le choix" 

2390 C=0:GOSUB1930:IFAS=ESTHENGOSUB1c 
30:G0T02030 

2400 IFAS=CHRS(127)THEN2270 
2410 IFAS=CHRS(13)ANDTJ=0THEN23-- 
2420 IFAS=CHRS(13)THEN2510 
2430 A=VAL(AS):IFA<10RA 5THEN2390 
2440 IFT J=0THEN2470 
2450 FORI = 1 TOTJ: IFA=J(I)THENC=1 
2460 NEXT: IFC=1THEN2390 
2470 TJ=TJ+1: J(TJ)=A:A=2+3*A:PL0T7+F, 
A, 22: PL0T4+F, A, 19: PL0T5+F, A, "••":G0TD23 
90 

2490 REM===== départ des jeux ====== 

2510 AS=EFS:GOSUB1520 
2520 FORW1=1T0TJ:NJ=J(W1) 

2530 ON NJ GOSUB 2910,2980,3040,3100, 
3160 

2540 WAI T 1OO:NEXTW1 

2560 REM ===== résultats =========== 

2580 TEXT:CLS:PRINTCHRS(17):PAPERO:IN 

K 3 

2590 PRINTSPC(10)DSES"J"ES"QR E S U L 
T A T S "ES"P"DS 

2600 AS="3232323232323232630000000000 
000060323232323232320303405236363600" 
2610 GOSUB1570:PX = 12—TJ: AS="POINTS" 
2620 PY=8:F0RI=1T06:PL0TFX+2+F,PY,3:P 
LOTF’X+F, PY, 7 : F'LOTFX +1+F, PY, MI DS ( AS, I, 1 
) 

2630 F’Y=PY+2: NEXT 

2640 F'LOTPX+3+F, 5, " 10" : PL0TF X+5+F, 5, " 
7. " : A=9 

2650 F0RI=7T025STEP2:PL0TPX+4+F,I,MID 
S (STRS ( A) ,2) : PL0TPX+5+F, I, "7." : A=A-1 : NE 
XT 

2660 F0RI=6TQ24STEF2:PL0TPX+5+F,I,"1" 
: NEXT 

2670 PL0TPX+5+F,25,"/":PL0TPX+6+F,25, 

Il y» M 

2630 PLOT1+F,26,6:PLGT2+F,26,"JEU \3" 
2690 PX=F'X+7 : C=I NT (RND ( 1 ) *5+1 ) :F0F:I = 1 
TOT J 

2700 FORJ=PXTOF'X + 3: PLOTJ+F, 25, ”/":NEX 
T 

2710 F'LOTPX+F, 26, "S" : PLOTPX+l+F, 26, M I 
DS(STRS(J(I)),2) 

2720 IFP(J(I))=0THEN2770 
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2730 C=C+1:IFC=8THENC=1 
2740 F0RPY=24T026-2*P(J(I))STEP-2 
2750 F0RK=PYT0PY—1STEP—1 
2760 PLOTPX—1+F,K,C:PLOTPX+F,K,127:PL 
OTPX+l+F,K,127:NEXTK, PY 
2770 PX=PX-*-3: NEXT I 
2780 A$=EF$:GOSUB1520: WAIT400 
2790 A$="Re-faire \> R (ESC: d ' autres 
choix)":GOSUB1520:P0KE#BB91,2 
2800 F'0KE#BB90, 16:P0KE#BB8F,B:POKE#BB 
8D,12: POK.E#BB82,20 

2810 GOSUB1930: IFAS=E*THENGOSUB1630: G 
0T02030 

2820 IFA$="R"THEN2510ELSE281O 


2830 REM =========================== 

2840 REM ======== FIN ============== 

2850 REM =========================== 

2860 REM=== titre choix des jeux === 


2870 CLS:PRINT:PRINTSPC(8)D$E$"J"E*"C 
"EVPCHOI X DES JEUX "£*‘'V n D$: PRINT : PRI 
NT:RETURN 

2880 REM ===================== 

2890 REM === jeu numéro 1 ==== 

2900 REM ===================== 

2910 GOSUB330:REM titre 
2920 DA=0:0F=0 

2930 A*="6363636363631004636363636363 
000000302219316320080830402810600800" 
2940 GQT03180 

2950 REM ================== 

2960 REM == jeu numéro 2 == 

2970 REM ================== 

2980 DA=200:0F=5:G0SUB330 
2990 A*="3001300130631004154815481563 
000000302219316320080830402810600800" 
3000 G0TÜ3180 

3010 REM ================== 

3020 REM == jeu numéro 3 == 

3030 REM ================== 

3040 DA=7:0F=5:G0SUB330 
3050 A$= M 6349464649631004635145455163 
00000030221931632008083040281060080.0 " 
3060 G0T03180 

3070 REM ================== 

3080 REM == jeu numéro 4 == 

3090 REM ================== 

3100 DA=0:OF=5:GOSUB330 
31ÎO A*="6332534232631004630121430163 
000000302219316320080830402810600800" 
3120 G0T03180 

3130 REM ================== 

3140 REM == jeu numéro 5 == 

3150 REM ================== 

3160 G0SUB330 

3170 A*="3232396145631004076145454563 
000000302219316320080830402810600800" 
3180 GOSUB 1570: REM redeLcarac. 

3190 WW=143:G0SUB990:REM réglé 
3200 G0SUB650 


3210 P(NJ)=0 

3220 CQ=1:P0KE#97A3,CQ:G0SUB410:GOSUB 
3250 „ 

3230 CURSET12,24,O:FILLIOO,25,64 
3240 CQ=0:P0KE#97A3,CQ:G0SUB580 
3250 V=6-5*CQ : FOR I =VT0V+4 : V=FRE ("•'): G 
0SUB890 

3260 IFNJ05THEN3300 

3270 0F=INT(RND(1)*51)*ABS(RND(1)<.9) 
3280 DA=INT((15*RND(1))-99*(RND(1)>.8 
))*ABS(RND(1)>.2) 

3290 G0T03320 
3300 IFOFOOTHENOF=OF+5 
3310 IFDAOOANDI /2<> INT (1/2) THENDA=DA 
-1 

3320 60SUB240:REM long.seg. 

3330 REM ===================== 

3340 REM == barre blanche ==== 

3350 REM ===================== 

3360 IFSOOOTHENPLAY1, O,O,0 
3370 FORJ=WW—30T0WW—5:CURSETO,J-l,0:F 
ILL1,1,22:CURSETO,J,O:FILL5,1,23 
3380 IFSOOOTHENMUSIC1,3, RND ( 1 ) * 12+1, 
SO 

3390 NEXT: IFSQOOTHENPLAYO, 0,0,0 
3400 REM ===================== 

3410 V=1:G0SUB830:REM segment 
3420 REM seg.c1ignotant 
3430 V=WW—4:CURSET12,V,0:FILL3,1,12:W 
AIT120:CURSET12,V,0:FILL3,1,8 
3440 REM ===================== 

3450 REM == cas écriture ===== 

3460 REM ===================== 

3470 IFCQ=OTHENGOSUBl430:CURSET30,44, 
O:FILL11,1,4:G0T03520 
3480 REM ====================== 

3490 REM == prop.mess.fléché == 

3500 REM ====================== 

3510 G0SUB1170:G0SUB750:CURSET30,32,O 
:FILL24,1,4 

3520 IFDAOOTHENPRINT"Le segment peut 
se d]placer({\ et \>)" 

3530 IFDA< >0ANDDA<1OOTHENPRINTE*"T"E* 
"G...mais un peu seulement. "E*"V" 

3540 IFDA=OANDÜFOOTHENPRINT"D)placem 
ent impossible!" 

3550 IFS0=0THEN3570 

3560 FORJ=1T02: PLAY1,O,O,O: MUSIC1,4,8 
,SO:WAIT10:PLAYO,0,0,0:WAIT5:NEXT 
3570 RR=0:DR=0:D0KE#276,T 
3580 REM == ici retour interro. == 
3590 F0RJ=1T080:NEXT:CALL#97A5 
3600 V=PEEK(#97A0) 

3610 ON V G0T03630,3650,3710,3740,399 
O,3990,3780,3800,3840,3860,3920 
3620 REM V=1 —> temps 

3630 CURSET60,188,O: FILL8,1,1:G0T0399 
O 

3640 REM V=2 -> chiffres 
















































1 3650 V=PEEK<#97A1):RR=RR*10+V:V=V+48 
3660 DR=DR+ 1 : CALL#FB 1 4+F*26: CURSETF'G— 
6,W,0:FILL8,1,8:CURSETPO,W,O:FILL8, 1,6 
4 

3670 CURSETPO,W,O:CHARV,O,1 :IFDR=2THE 
N3990 

3680 IFL<9ANDDR+EC=0THEN3990 
3690 P0=P0+30+EC*18:CURSETPO,W,0: F ILL 
8,1,63:CURSETPO—6,W,O:FILL8,1,12:G0T03 
590 

3700 REM V=3 -> ESP cas mesure 
3710 V=32:IFDR=1ANDEC=OTHENRR=RR*1O 
3720 G0T03660 
3730 REM V=4 -> DEL 
3740 IFDR=0THEN3590 

3750 RR=0:DR=0:CURSETPO,W,O:FILL8,1,6 
4 : P0=F'0—30—EC* 18 : CURSETPO, W, O : FILL8, 1, 
63 

3760 CURSETPO—6,W,O:FILL8,1,12:G0T035 
90 

3770 REM 0=7 -> déplacement 

3780 D=—2:IFXO+DCLGTHEN3590ELSE381O 

3790 REM V=8 —> déplacement 

3800 D=2:IFX1+D>LDTHEN3590 

3810 IFDA=0THEN3590 

3820 V=0:G0SUBB30: XO=XO+D: X1=X1+D:V=1 
:G0SUB830:G0TQ3590 
3830 REM V=9 -> vers le haut 
3840 V=—1 :G0T03870 
3850 REM V=10 -> vers le bas 
3860 V=1 

3870 IFCQ=0THEN3590 
3880 V=PF+V:IFV<00RV>3THEN3590 
3890 CURSET18,DD+8*PF,0:FILL8,3,64 
3900 PF=V:V=DD+PF*8:G0SUB770:G0T03590 
3910 REM V=11 -> FIN 

3920 PRINT:PRINT:PRINT"ON STOPPE VRAI 
MENT ? (O ou N)" 

3930 REPEAT:UNTILKEY$="":GETA$:IFA$<> 
»0"THENPRINT: PRINT: PRINT:G0T03590 
3940 CALL583+F*2B 

3960 REM == contrôle réponse == 

3970 REM ====================== 

3980 REM cacher les messages 
3990 CURSET30,32,O:FILL24,1,6:PRINT:P 
RINT:PRINT 
4000 IFCQ=0THEN4110 

4010 IFPF=BPTHENG0SUB4340:G0T04200:RE 
M gagne 

4020 REM perdu 

4030 CURSET48,106,0:FILL8,1,1 
4040 A$="C est:":CURSET132,64,0:GOSUB 
950 

4050 W=DD+BP*8:CURSET48,W,O:FILL8,1,2 

3 

4060 CURSET132,72+BP*8,0:A$="<\\\": GO 
SUB950 

4070 G0T04180 


4090 REM == contrôle cas écris == 

4100 REM ======================== 

4110 IFL=RRTHENG0SUB4340:G0T04200 
4120 CURSET48,90,O:F ILL8, 1, 1 
4130 CURSET36,98,O:A$="La rlponse 3 ta 
it:":G0SUB950:CURSET60,106,O 
4140 A$=MID$(STRt <L),2):IFEC<OTHENA$ = 
•• " +A4+ " mm" 

4150 I FEC=OANDLEN ( A* ) = 1 THÎENA$ = " O » +A$ 
4160 IFEC=OTHENA*=LEFT*(A*,1)+ " cm " + 
RIGHT*(A*,1)+" mm" 

4170 G0SUB950 

4180 C=4:C1=126:C2=126:C3=126:G0SUB44 
50 

4190 WAIT350 
4200 WAIT150 

4210 REM effacement avant suite 
4220 V=0:G0SUB830: REM =seg.= 

4230 CURSET60,188,0:FILL8,1,6:REM mes 
s.temps 

4240 V=90+16*CQ:CURSET48,V,O:FILLB,1, 
6:REM=faux= 

4250 CURSETO,WW-5,O:FILL5,1,22:REM=b. 
b 1anche= 

4260 IFCQ=0THENCURSET36,98,O:FILL 16, 1 
7,64 

4270 IFCQ=0THENCURSET54,DD+4,O:FILLB, 
10,64:G0T04310 

4280 CURSET48,DD,O:FILL32, 1, 19:CURSET 
54,DD,O:FILL32,12,64:REM =rect.prop.= 
4290 CURSET18,DD+PF*8,O: F ILL8,3,64 : RE 
M=fleche= 

4300 CURSET132,64,O: FILL40,6,64:REM=c 
' es t = 

4310 NEXT 

4320 RETURN 

4330 REM == gagne == 

4340 C=1: Cl = 124:C2=47:C3=37 
4350 P(NJ)=P(NJ)+1 
4360 CURSETO,WW-7,O:FILL2,1,16 
4370 IFSOOOTHENPLAY1, 1, O, O : SOUND 1,60 
000,SO 

4380 V=WW—15:D0KE#9760,#B403 
4390 CURSET18,V,O:CHAR124,0,1:CURM0V6 
,0,0:CHAR47,O,1:CURM0V6,O,O:CHAR37,0,1 
4400 FORH=1T030: WAIT15:CALL#9765: NEXT 
4410 CURSET198,V,O:FILL8,3,64 
4420 IFSÜOOTHENPLAYO, 0,0,0 
4430 CURSETO,WW-7,0:FILL2,1,22 
4440 REM == remplit rect. == 

4450 V=INT(I/2):IFV=I/2THENV1=30ELSEV 
1=0 

4460 VX=174+V1: VY=40+16*V+16* (VlOO) : 
CURSETVX,VY,Ox FILL8, 1,C 
4470 VX=VX-*-6: CURSETVX , VY, O: FILL8, 1,64 
4480 CURSETVX,VY,O:CHARC1,0, 1 :CURM0V6 
,0,0:CHARC2,0,1 :CURMOV6,O,0:CHARC3,O,1 
4490 RETURNB 
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le boot 



SUR VOTRE DOS 


Pierre CHICOURRAT 

L e DOS doit donc être chargé en Ram Overlay pour pouvoir être 
exécuter par la suite. Cette opération a lieu au moment du 
’BOOr qui est commandé par l'utilisateur lors de l'appuie sur le 
bouton du lecteur portant le même nom. Cette manipulation a lieu en 
plusieurs étapes que nous allons aujourd'hui tenter d'éclaircir. 


lere étape : immédiatement 
après l'appui sur ce bouton, un pe¬ 
tit programme en langage machine, 
stocké sur une EPROM, est exé¬ 
cuté. Ce petit programme se char¬ 
ge tout d'abord d'atlicher le messa¬ 
ge ’BOOTING' sur la ligne des 
status, puis charge le secteur 1 de 
la piste 0 de la disquette qui est 
dans le lecteur (nous verrons en 
détail l'organisation d'une disquette 
le mois prochain, mais disons tout 
de suite qu'une face est divisée en 
41 pistes de 17 secteurs, chacun 
de 256 octets). Si cette opération 
échoue, le message 'BOOTING 
FAILED' est affiché et on fait un 
RESET complet (reset à froid) du 
système. Sinon, on passe à la se¬ 
conde étape. 

2eme étape : le secteur 1 de la 
piste 0 ayant été chargé en page 4 
(à partir de #400), on le considère 
comme étant du langage machine 
et on lance donc son exécution à 
partir de l'adresse #400. Ce secteur 
pouvant contenir n'importe quoi, 
on peut donc faire exécuter le pro¬ 
gramme que l'on souhaite à la place 
du BOOT normal. Sur la disquette 
système livrée d'origine, on trouve 
les programmes présentés figure 1 
(pour un double face) et figure 2 
(pour un simple face). En regardant 
ce programme de BOOT sur un 
double face, on s’aperçoit que 
contrairement à ce que certains ont 
prétendu au moment de la sortie de 
ce FTDOS 3-2, il existe toujours 2 


versions du DOS : une pour 
ATMOS et une pour ORIC-1. Elles 
sont stockées sur la disquette sys¬ 
tème et une seule figure au catalo¬ 
gue. C'est ce programme qui s'aper¬ 
çoit de la machine sur laquelle il 
tourne et qui charge le bon DOS. 
La seule amélioration réside donc 
dans le fait que la bonne version du 
DOS est chargée sans intervention 
de l'utilisateur. Cependant, cette 
astuce a un défaut : si vous sauvez 
le DOS sur une disquette par 
IMASTER’'...", seul le DOS en mé¬ 
moire sera sauvé. Conséquence 
immédiate, si vous avez un ORIC-1, 
le DOS sauvé ne pourra être booté 
sur ATMOS et réciproquement. De 
plus, la manière utilisée pour recon¬ 
naître la machine sur laquelle on 
boote le DOS se base sur le conte¬ 
nu de l'adresse #230 (retour IRQ 
sur ORIC-1 à la valeur #40 et sur 
ATMOS, cette mémoire ne corres¬ 
pond à rien). Or, cette mémoire 
peut être changée pour plusieurs 
applications (ex. : détournement 
IRQ sur ORIC-1) rendant ainsi ca¬ 
duc le boot du DOS avec la disquet¬ 
te système d'origine (la routine de 
boot ne reconnaissant plus la machi¬ 
ne sur laquelle elle tourne, essayez 
par exemple sur ATMOS : POKE# 
230,64, puis bootez le DOS avec la 
disquette d'origine : le système 
croit qu'il tourne sur ORIC-1 et se 
plante). 

3eme étape : initialisation du 
DOS. Celui-ci démarre en #D4F8 


(de la Ram Overlay). Vous trouve¬ 
rez figure 3 le listing désassemblé 
et commenté de cet init. Il vous 
permettra de découvrir les pre¬ 
mières adresses importantes du 
DOS ainsi que, malheureusement, 
ses premiers BUGS. Sur la dis¬ 
quette d'origine, le ST ART ne mar¬ 
che absolument pas dès que vous 
voulez lancer de la sorte un pro¬ 
gramme en langage machine (peut- 
être n'est-ce qu'une erreur de 
copie, mais elle figure sur toutes les 
disquettes que nous avons eu la 
possibilité de vérifier). 

L’application que nous vous propo¬ 
sons aujourd'hui consiste tout sim¬ 
plement à modifier cette dernière 
phase d'initialisation afin de : 

- rendre le DOS totalement compa¬ 
tible ORIC-1/ORIC-ATMOS ; 

- supprimer le message de présen¬ 
tation et surtout la boucle d'at¬ 
tente ; 

-faire que l'écran ait une couleur 
différente au moment du démar¬ 
rage (il a été choisi vert sur fond noir 
comme sur les moniteurs) ; 

- supprimer bien sûr le BUG du 
START pour rendre cette comman¬ 
de vraiment efficace sur tout type 
de programmes. 

Vous trouverez, figure 4, un pro¬ 
gramme BASIC se chargeant de mo¬ 
difier le DOS et de sauvegarder 
éventuellement le nouveau DOS 
sur une (ou plusieurs) disquette(s). 
Le listing assembleur n’a pas été 
fourni car la routine est aisément 
compréhensible. Pour qui sera inté¬ 
ressé, le démarrage a lieu toujours 
à la même adresse en #D4F8. 
Cette routine utilise une table de 
conversion (OR-1/ ATMOS) stoc¬ 
kée dans un tampon qui n'est utili¬ 
sé que si vous disposez de deux 
lecteurs (un maître et un esclave). 
Aussi, dans ce cas là, dès que vous 
adresserez le second lecteur, cette 
table sera détruite. De ce fait, pour 
faire une copie du DOS (par IMAS¬ 
TER), il vous faudra le booter sur le 
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lecteur maître et faire la copie en 
utilisant uniquement ce lecteur-là. 
Afin de compacter la routine d'init 
(et de gagner de la place dans le 
DOS pour d'autres applications), 
l'adresse d'initialisation du vecteur 
de ’!' et du début des messages 
d'erreurs est contenue dans le ta¬ 
bleau de conversion. 

Pour aller plus loin ! 

Le problème que nous vous po¬ 
sons aujourd'hui intéressera les pro¬ 
grammeurs en langage machine. Il 


s'agit de modifier la routine de 
BOOT du DOS de manière à ce 
que, avant de charger le DOS, la 
routine restaure les pages 0 et 2 et 
la RAM. Ainsi, quand la machine est 
plantée, on pourra aisément récu¬ 
pérer la main de manière complète 
(il y a également une autre applica¬ 
tion de ce système pour déplomber 
les programmes : à vous de trouver 
comment...). Attention, on précise 
que ce nouveau boot ne doit dé¬ 
truire QUE la page 4 (cette page ne 


pouvant être épargnée) et que le 
DOS, après restauration des 2 pa¬ 
ges sus-dites, doit être normale¬ 
ment chargé (remarque : on accep¬ 
tera que la copie du DOS ainsi 
obtenue se fasse par l'intermédiaire 
d'un petit programme BASIC et des 
commandes !WS et 1RS (ceci dans 
le but de simplifier un peu le pro¬ 
blème et de ne se concentrer que 
sur la modification à effectuer). Bon 
courage ! Solution le mois pro¬ 
chain... 


Programma de BOOT Olarge jw!om,it«*>emc«i *n paga 4 *1 % occupant Or 
Cfwgw en mtmore le DOS 

ATTENTION il ('* 9 * du programme cJonqne «J* U dtqucttc System*) 


(Mtjrt f i 

<*40i u-., ■« . 

•-»-**.*, i tu V' .fl 

040e Ut*» 

••JC»* Tm *0 » « 

0406 y* ■ *•»• 

0400 Tm V f{ 

0410 MM *'M 

041> lM »..»•! 

041*. lt •*•>. 
041 LC-. V. ... 
041m CP, «u» 

041'. tut *.'4. 
04IE Ll-H aV4 

0420 lf a*.v 
0422 S TH MM 

0424 il fur 
042? LC-H ai**; 

042? Tm *fFfE 

042»: LtA *M>4 

042E : TM *FFf » 

0431 LfM «M- 
0433 MA «02 

04 >3 LfA a Vf 

042? : TM V» 

.•4.- I_[M «tco 

04 20 STM vr- 

0430 *04.4 

0440 if<>: mm 

0442 LM a* SI 

0444 Mm »... 

044»; tr-M ««ni 

044? «ta *o; 

044M .l$P •••4.4 

0441- INC MM 

044F LtA VIF 5 

0452 CHF ■ «02 

•>454 ecc **;i44. 

045»: LtA V3F6 

045? crtr a *.;•(• 

04 *t ecc *04» i 

045t‘ LtA «MX: 
045F fl «F «0444 

0461 .«F *t-4F? 

0464 I tA «*05 

046»"- : TA M>1 

046: JS* V4C0 

0468 IM «0»; 

..J.[ !.. 

046F .ISP V*»4F ? 

•>472 Lf-M *tv 

0474 «tm m:<:f6 

0477 IfA VF? 

04?A MM a* O 
0476 Lt’. a**»' 

04 TE TM V‘F 4 

04ft| •| | 

0482 lf- V- 
0404 BEO V4A2 
0486 LOX «03F4 

048? CPX B*9I 

0488 BCC *04B? 

0480 CP. B «00 
040F 0EO *0486 

04?1 CPY a*80 

04?3 EIC V4?| 

0495 Lt'A *0:F4 

04?8 AN(> a* K 

04?A BUE *048? 

04 ?c i»*: «O*. 

04?E t£C V? 

04A0 BIC *0486 

04A2 SE! 

04A? LtA «MA 

04A5 STA *03F 4 

04 AS Lt-A «O’F? 
04AB F K 

04A«: Lt'A «0.T7 

04AF «TA • *04 • 

0481 IMY 

0482 PU 

0403 f : ï *0402 

0486 .l$P «04C0 

048? t£C *00 

0488 EUE *047? 

04 Ff. .«IF *.;FE I 

04C0 Lt'V B*(V r . 

04C2 tCV 

04 C 3 8E0 *0480 

04C5 .ISF- M34F7 

04C8 Lt'A *01 

04C? Cl* et • 
04CC 8CC «0405 

04CE CLO 

04CF SEC ■ *2?. 

0401 Lt- «VI 
04C* • ETC *04 f-? 
041-5 Lt:, a *00 
0487 ST:: *O?F0 

04 Oh -t *CO0C 
041-0 STA V?F7 
04E0 Lt-A a* |4 
04E2 STA *C'3F4 
04E5 • it fur r 

04E8 LtA *0?F4 
04Ef ANt. •*!? 

04Ef EEO V4F6 
04EF LIA «MX» 

04FI STA *0?F4 

04F4 BEO *04C2 

04F6 FIS 

04F 7 Lt'A V3F4 

04FA LSF 

04F8 8CS «04F? 

OIFf. RTS 


Pnug* en l'AM overtay 


Raser adresse <x ttccfcagedu OOSipbdi leœi 

IXtntX Oanvere PU» Ou DOS «Uns A lt»») 

u on «u lui AI MOS (a f 4 donc Vhiuxj.» 
pcuiet ?mecnewsl 

voua «J en HJ2 <ru<g»t I* DOS A T MCP. 

Smon NDOSOAiC i commence j»«e 4 (secieur 3 
etinpsleôl 

met dans Ot i#numérodaU pnmtrt pnte 
*1 dam («Ml ceA» de la damera) 


OAouma ta» rterrvpton pour itCLfme' la» 

•Xmneas an pro.e'unce du Mcteu ion *»| an RAM 
ovartj» doncMf Fl «tm f sont modfcabet) 
numéro du pramer ledau 4 cIuiqm lUnt 01 

HotTtyt 0* t*atnjrt » cn»o*« 

PoOiloddalad>a«Mda i«x*4oadu DOS 
ll’ad» i*Mo déO <n«<4M4) 

•actuia tfuna t»»« du dtqua 

Augnwnle la «XjmaiO de U fMlo 4 cftarv 

norrf* da M<tau> 4 totrgtr le» pocn»nai puai 


raanAo Ai premai MOeu> 4 cnaroei aur ca« pote» 
Cfwgamert tfuna pdla 

P4ua 4 <4 (>Ue Mevorae ( wemania le numAoi 
itQjrda u on asl 4nlv« 414 tfairaera pMle (4S3 
conoem la rurém de celle dan»*»* pue | 

«OUI Fn. le002.dOrrune 


lefl touiouni loua (4ul pour U derr«4»e pue 
on ne Ovaire que *B sedeura tta la derr>4re pôle 
eionoononua 

démaniQe du DOS (ad<etse tf enlrtai 
fomne de «dura de | «il sacsaur» 4 twrt» de ü 
(Mie |0l). secteur (0?) S essa.s de lecsu-e sort 

leraés 

l a nombre da secteurs 4 Me es! irjnsiér* dans un 

ampleur au-4»re (03) 

jutera que le contrôleur soeKire 

rsrmero de prertser secteur 4 «a dans le repstre 

da secteie du oorarôleur 


commanda la lecture |4 *4es$e rMute) 
auionse las iraemjpoons pour r*cio«rar les datas 
an est «n au damer secteur 4 ira 7 
«ou »nde lecture 

«non y-a-Hlunt erreur sur le oortrôieur ’ 

«ou recommence U lecture de U psie 
«non Hun secteur 


le secteur a 1 4 AB correctemM trantms t 


«non recommence U lecture 

■ ou tncramertt Tadrasta de stocSaoe 

al passe au secteur «mare 

on rra pas tr«i de toullre 

lut de lecture 

irrate le moteur 


ros«ne de raaipanaon des dormèas 
sur les reempeont 


an cas (Terreur tur le Pique arrAe le moteur 

rtposaonneutaie 

pus u on n est pas 4 5 estas ralerae 

une Mesure de celte pnte 

erreur sur la Psqre (CI remarqie odessous) 

posaomr U 141e de lecture su U pste IOt| 

don le numéro est dans Oïl 


mena le oortrôleur 

calcule la rumaro de pile M de lace eracl (pste 
dan» A A lace dan» X) Celle cperaton est 
lolalemer» muai* a 


cas tf une psie de U deuiMme lace l X.Ot a A 
coraenienumaipdeUpeteSUACETTE FACE) 


commanJe le posaonnemen de U l*te tdAâ su) 
Allend oortrôleur 

Reçarde « le posroonnemen a «4 correct 

le potrtonnemen a ben su leu 

Smon rAora# le poMonnemtn (5 essai son 

lertas a»an de déclarer une eneu au le daquei 

Indelarouone 

attend que le oonoôleu to« Km (remarque/« 

une nw»ere dnerene de letter le M 0 du repsire 
de commande du oortrôieu) 


Figure 2 ■ 

Programme de BOOT su un simple lace ou su une Piquette r 
(DOS copa par r ordre MASTER) 


Figura 3 

mbaasaaonduOOSaprasBOOTiNG Dieu 


460 

462 

464 

46? 

46? 

468 

KE 

46F 

471 

473 

476 

47? 

478 


HOP 

SCI 

Lt-A B«?F 

*.. .-f 

Lt-A B VI 
5TA v:fa 
L t-A BVO 
MA V3F8 
6TA V4 
STA VI 
TA V?F4 
Lt-A 8VE 
TM *FFF£ 
I!- a*.-4 

STA *FFFF 
MA V4?> 
;TA «0448 
r.. «046< 
Lt-A av: 
STA *02 
Lt-A «VF 
STA *06 
l tA a*-: 0 
'.TA «05 
r-;P *0460 
LtA «VI 
STA VI 
LOA ■*!! 
STA *06 
LIA a VI 
STA V2 
tif> «0460 
i»*: vi 
LtA VT5 

•:mf a *02 
kc *4^: 
LtA V3F6 
CT*» «MX- 
te-: *4st 
LIA «MX 
t»lE *440 
■MF M-4F8 
LtA «M*5' 
STA *00 
/■P *048F 

LtA *06 


LtA V2- 
STA V3F6 
Lt" v : r - 
LCA a»?0 
Lt-'.' «MX- 
STA V3F4 
CL! 


Lt:. V.F4- 
CF : : a«si 
BCC *482 
CP. «*00 


Lf- «VO 
m: m»:f 
f «cooc 

TA m»:f? 


tr*> *4Ft- 
Lt'A «M» 
TA «O F 4 

r£o *4Ci 


stppnmaiAO 
suppnmeiROdu VIA 

Passage an RAM orarsay 


«eset adresse da stockage du OOS (Pods ijabe) 
rurdm da la pramera psi# a Me (-Oi 
Aeseioonrônu 

defcune tes i»Q pou reopenr les donnes 
•ncaprenancapjleaeudePsquaiCt sprret 
sapjenceftmlam) 


ratet des adresses de srajt de la tourne pou que 
ce«r o pusse maculer enMramen en paoe 4 

runlro pramer seeseu a «a 

nomere de sacsaur» a Me su ta pramera pila 

adresse de stockage du OOS ipoOs Ion ) 

•ecAtra des sectesjrs dune pste «me routne 
smsurn fsyua dans « programme de BOOT da U kpya t 
an #464 

PXpan U Mua da U pale Swnana (ruméro t 
su l*qja«e on Ira 1 7 lecteurs) 
numéro du pramer sea«u a In su la pste twane 
(•« on«Upst*depu»»ed«tui) 


Passe a la p« suvane 

atenM? 


On netl pas anoon aner« a U dameara pste 
corat,r • 


Enne arma normal 


04F8 
04FA 
04Ff 
0500 
0302 
0303 
030? 
O30A 
0300 
0310 
0312 
0313 
0317 
03IA 
03 IC 
031F 
0321 
0324 
0326 
032? 
0328 
032E 
0330 
0333 
0333 
0338 
0338 
033E 
033F 
0340 
0343 
0346 
0347 
D34A 
034C 
034F 
0331 
nt duOOS 


L c A 
STA 
STA 
LOA 
STA 
LtA 
STA 
JSP 
JS* 
LtA 
STA 
LOA 
STA 
LOV 
JS* 
LDY 

JS» 

LDY 


ave 

*C044 

«C046 

■*E6 

•C043 

• *04 

*C047 

VA42 

M-358 

««32 

V2CI 

•*E3 

V2C2 

«VO 

•0333 

••24 

•0333 

• •4? 

•0333 

••60 

•0335 

•VO 

•02C1 

• V2 

V2C2 

•0347 

•0364 


V37C 

•VO 

V2F3 

• •04 

V2F 6 


T rantien de u page «E 6 (de la RAM enanay i «an 
(•page #4 data RAM neaisedoncUrone 
qaaslut*seapouranreedeiacomman)a * 


rouime du DOS IranUMan 2V, octets de r adresse 
■npqaeepar (#0044 aC045i «er»(tC04« #C047i 
*0556 'K ut ClS • saUe une igné su racran 
«a aPcnw ta page acran du dMM du OOS 


rou*ne du OOS aMhan un massage commançan 
# r adresse .ndpjM) par |»0X t a02C?|./a( termnae 
peruw»a*eu supMvu'o 4 '■ 2 » icaO rousnc 
use se la PAtNf de U ROMnormm ceo est 

responsable des massages OU T Of MEMORY «cuiaiun pari»» mile 
après le BOOT 

Mets dans (a02Ct aOTCJi rades te du dMU des 
massages tfarraus Pu DOS (ta tourne tf adenaga 
an lOSSS at« uusea pou MPC tous las massages tfarraus 

Passe a (a igne.me «acteur du' 
juiedr'nenuim 


Passe a la igné 

ma «acteur du ' 


•I s'apl de ta demére (MM su lapjele on ne 
«q.rlfl -11 secteus 
d*marragedu OOS 

tourne «mtamace»ade laïque t elc o mmengan 
J part» de 1464 aus« seraponerautqua t 
posponnaman de la t4le 


0364 
0367 
0369 
036C 
036F 
0371 
0374 
0377 
0379 
037C 
03 TE 
0381 
0383 
inaduOOS 


JSR VC87 
LOA a*FF 
STA *0361 
STA *0362 
LtA «VA 
STA *0363 
DEC *0361 
B»iE «0574 
DEC *0362 
E»€ *05 ?4 

CEC *0363 

B»< *C'5?4 

jrr> *F56? 


■ns une »na m*mom qa sera lAasee pou te Psqua 

code daeeraa de««*« a permattra de ben m 

râpes te de T R a N ancre* sur racnm pus Abenenenrerrutsuceu 


F569 LtA MCE? 


C0E3 est le porteur de AUTOSTAAT «.>o un 


F36C 

F36E 

F371 

F374 

F377 

F37A 

F370 

F380 

F582 

F383 


EtC *F571 
JNP *048? 
JS* V65A 
LOA *C0€4 
STA MACC- 
LOA SCCE5 
STA *tOO? 
LOA a*0O 
STA V0O4 
STA V06? 


programme do* démarrer en auosiart 
smon IM un RESET 

« la tampon dtskn# a conerw le nom du programma 
•enargar 

tranpan ca nom (ooraaru dans #C0€4| dana ce 
tampon 

pu» le type du programme ( aCOES) (BAS-1. BiN^l 

type du progr a mme Scbar aiécutiba 
la &cbor ne sera pas d*piac« 


muane«mi«raaca4adeiatgual etoommengara 
a panr de TadraMeaeCOise reporter donc 
au> oommartMas da la aque t ) 


F 588 
F388 
F38E 
F590 
F392 
F394 

F396 
F398 
F39R 
F39C 
F39E 
F3R0 
F3A2 
F3R3 
F3A7 
F3A9 
F3R8 
F 3RE 

F381 .«P 

F364 LOA 

F387 LOX 

F38A JTP 

M du DOS auto 


LOA 

STR 

STR 

STR 

LCA 

STR 

LOR 

STR 

JSR 

STR 

LCA 

LOX 

STR 

STX 


•C384 

* 000 ? 

•V! 

•F 381 

•VO 

•36 

•38 

*£« 

••34 

*€? 

•*?5 
•33 
•C4F7 
• IC 
••62 
•*fç 
*8FEC 
•pFEt- 
*E46t- 
•C062 
•C063 
V3A8 
tuile 3 


cMrge en mampra un programma pr«os« par M vanablas 
d4cmas o dessus (carte rtx»ne sera revue 
p*rs tarai 

« le programme es! du t*n»r# le tance »ya 

Oun premier BUG la brancAemert dot se tara en aF5B4 


tancemera tfun pngrammt en BASIC (on ma« U commande 
ALBC dans la tampon 


la fUttSC esl d**xrra pou van rackette tfartr** 
de reaevAeu BASIC normal (de la ROM) 

Put im un Reaei ( au OAC t ) U s4quance e« 
loacoo 

L0XBSE4 

PMM en ROM «lance le l Md4butaraen(8FEC.BfE0 
UncemartenAl/TOtfutprognmmeeoL M dans A « 
X adresse da dieu du programme 
«yalo un autre BUG ondoeavor jmp$FSAa 
démarrage du programme 


E460 

E46F 

E471 

E473 

E476 

E479 

E47R 

E47C 


LOX 

LC" 

B»€ 
L M 
STR 
OEX 
BNE 


• MX S cee# routna tmMra an RAM u»a routna l«san 

•*4C r . rapaaaer en ROM norme*» « «recutert la progr a mma an 

•E476 L.lMoomman^raâfadrasaacoraaruadanieBFECw 
•E62I-X al*8FE0 la OOS iMae donc, dansa cm au» 

•8F0F-X », MAsattrt. taroneaBFEO- eBFFF 


•E473 

*8FEP 

s cm d» dtmarr .ga an ST AR T tfun Scbar 


6622 LCA a *00 

E624 STR V3FR 

E62? LOA a*CO 

E629 STR V:C€ 

E62C JHF _ 


musne vanasere# par le OOS an fBFEO « se 
enargeora de rapmer en ROM nomvMe « da lancer 
le programmeptbulara en («BF EC aflFEO) 

yrq langera cette e > ecuaon 


Hamjrgue an cas tferrau da «aoua sur te itoque. te programme ren»o* 
eniCFCl.ceuiOrequeMie DOS eu ctv^g* eu meueo» lOf RROH 
Cepenœn t te# a<Tunepe<4e erreur tonHi metuteoù. tu momen Ou 
BOOT le OOS n'tttnt pas cfterpe. sY r a une erreur ta te dogue le 
progrtmme te pJanre S auae donc *» pr***'*Oe de reptster en ROM 
normtie et Otlcner un metttge (Terreur *rw on turtt *vli de pltnlet ¥ 

système en cas d erreur 
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Figure 4 : 

Nouvelle routine d'initialisation du DOS, programme d'implantation. Début 
également la commande START. 


20 PEM= NOUVEL INIT OIJ O. O- S 

30 REM= = 

40 PEM= COMPATIBILITE ORIC-l ET = 

50 REf1= ATMOS TOTALE = 

70 REM 

30 TE::T CLS PAPER0 INK2 

90 PPINT PRINT PPINTSPC(7.'"NOUVEL INIT DU 0.0.S JASMIN" 

10O PRINT PRINT"LE D.O.S EN MEMOIRE DOIT ETRE LE" 

110 PPINT’D.0.3 C€ LA DISQUETTE SYSTEME D0RI-" 

120 PPINT"GINE ■ ORIC-l OU ATMOS)." 

130 PPINT PRINT"SI CE N'EST PAS LE CAS IL FAUT PE-" 

140 PP INT"FAIFE UN BOOT AVEC CE DISQUE, SINON." 

150 PP INT"TAPEZ UNE TOUCHE ..." P0KE#2DF •0 GETR$ 

160 CLS PPINT"VEUILLEZ PATIENTEP JE METS EN PLACE" 

170 PP INT"CE NOUVEAU D.O.S..." 

1S0 HIMEM#1EFF CLEAP•F0RI=0T07 READAS NE: T GOSU6360 
190 P0KE#1F1C,2 P0KE#1F1E■0 CALL#1F0O 
200 REPEAT GOSUB360 UNTIL F 
210 POPE « 1F1C, O PCI :E #1F1E, 2 C ALL # 1F00 

220 CLS PPINT PRINT PRINT" LE NOUVEAU D.O.S EST EN SERVICE," 

230 PP INT"VOULEZ-VOUS 'MASTERISEP' UNE" 

240 PPINT"DISQUETTE T COU DO", 

250 P0KER2DF•0 GETRS IFRS J"0"ANDPS >"N"THENPING GOTO250 
260 F=6 IFPS-“N"THENF=2 

270 AD a DEEK< #12>+PEEIX #269 <-F A=PEE! CAD >+123 POKEAD,A 
2S0 IFPS="N"THEN350 

290 PRINT PPINT"METTEZ LE DISQUE CONVENABLE, PUIS" 

3O0 PPINT"TAPEZ UNE TOUCHE" P0KE#2DF,0 : GETRS 
310 PRINT ; AS = "J'enre9i s tr * l* D.O.S ..." 

320 FORI = 1TOLENC AS > K=ASC< MI AS. I > >+123 FOI EDEE! • » 12 >+1 +2, F NE! :T 

330 !MASTER"NEUDOS" PPINT PPINT 

340 PRINT"UNE AUTRE T [03- DO"; GOTQ230 

350 PF INT PRINT PRINT"TERMINE_" END 

360 READAD F=0 IFAD=0THENF=-1 RETUPN 

370 REPEAT=READAS A=VRL<"#“+AS)•IFAS="4"THEN4Q0 

330 IFA >255THEND0KEAD,A•AD=AD+2 GOTO4O0 

390 POKEAD,A AD=AD+1 

4O0 IJNTILAS="4" PETURN 

420 DATA&1F0O - 

430 DATAA9,00,85,00,35,02,A9• 20,35,01,A9,C0,35,03,A?,7F,78',3D,0E,03 
440 DATAA9,O1,SD,FA,03,AO,00,B1,02,91,00.E6,OO,DO,02,E6•O1,E6-02,D0 
450 DATAF2,E6,03,DO,EE,A9,C0,AO,OO,SD,FA,03,SD,DE.83,53,60,4 
460 DATA#34FS 

470 DATAAO,O0,AD,49,02,C?•FS,03,B9,OO,EF,SD,1E,D5,CS,89•00,EF,SD.1F 
430 DATAD5,FO,14,C3, (59,OO,EF.AA,CS,B9.00,EF,23,OS,F0,01,SA,3D,FF,FF 
490 DATAC3,D0,DD,AO,00,69.00^6.99,00.04,CS.DO,F7,20.87.DC,AD.E3,CO 
500 DATAD0,03,4C- 33,04.20,5A.C3,AD,E4•CO.SD,CD,DO,AD,E5.CO,SD,09,DO 
510 DATAA9,OO,SD.D4,C0,SD,69,C0,4C,69,F5 
520 DATA4,#5569 

530 DATA20,84.C3,AD,09,DO.C9,01,D0,22,A9,00,35,36,35,33,35,EA,A9-34 
540 DATASS.E9■A9,98,35.35.20.F7.C4.35.1C.A9.30,AO,F4.SD.EC-BF.SC - ED 
550 DATAE-F. 4C, 60, E4, AC', 62, C O, AC, 63, CO, 38, BO, EE 
560 DATA4■#4F00 

570 DATAC916.AC,AE•D1D0,SB,SD,D204,AC,AE,D296,DF,7,E05A.AC,AE 

580 D AT AE644,61, AB • E655 ■ 61, AB, F1C 3, F • 13, F1E5 • 9D, 27 

590 DATAF1E6,DO.FO,F1E7 >F7,4.F1ES,13,C9,F1E9,93,9D,F1EA,65,DO 

600 DATAF1EB.E9.F3,F1EC,35,13,F1ED,E9.98.FIEE.90,65.FIEF.2,E9,F1F0.E6■15 

610 DATAF 1F1, EA. E9 • F1T2.60.90.FIFO,4L , i.C. F 1F4.FA,E£,Fir5,CF,Eli 

620 DATAC071,61,AB,C073,32,9,C07D,OFI,CE,C07F,3D,8,C03O,C9,C7,C083,Fù,89 

630 DATAC084,CC,CD,C035.B3.E5,C0S7.D1,C,C033,C4,C9,F539,30•B2,F5SB•F4,FS 

640 DATAE6E6,7F.04.F6E7,F1.F?.E6FE,SB,10,E6EF,F1,F2,E6F1,ED.B0,E6F5,CB;CC 

650 DATRE63C,DD,OC,E63D,CS,C9 

660 DA TAE6FD.B5,A3.DSC1,OO,AO,D2C2,E2,E2,2F5,0,0,2F6,4,4,0,0,4 

670 DATA#51F6 

6S0 DATA60,4C■FA,CF,4 

690 DATA#55F0 

70O DATAD8,A9,0O,SD,D5,C0,4C,30,DO,4 
710 DATA#4637 
720 DATAD2,4 
730 DATA4,#46D2 

740 DATAA9,DD.85.IB,A9,04,85,IC,6C,FA,FF,A9,0O,SD,El,02.SD,E2.82.20.7F,Fl 
750 DATAA9,02,8D,El,02,20,SB,Fl,A9,ED,85,1B,A9,CB,85,1C,A9,4C,S5,IA 
760 DATA4C,B5,C4,4.O 
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DEBUG POUR JASMIN 


C e programme a pour but essentiel de récupérer un fichier per¬ 
du à cause d'une fausse manœuvre ou à cause d'un secteur dé¬ 
fectueux. Il permet également de mieux connaître la 
structure d'une disquette ainsi que l'agencement des fichiers. 

Quelques fonctions très pratiques sont également disponibles et per¬ 
mettent d'améliorer les interventions sur les disquettes. 


Voici la liste des fonctions dispo¬ 
nibles sous DEBUG. 

- Sélection directe à l'aide du cur¬ 
seur d'un fichier à charger ou à exé¬ 
cuter. 

- Sortie sur écran de l’adresse d’im¬ 
plantation des fichiers sélectionnés 
par le curseur. 

- Lock ou Unlock d'un fichier sélec¬ 
tionné avec le curseur. 

- Rename d'un fichier sélectionné 
avec le curseur. 

- Dump sur écran ou imprimante 
de la liste piste secteur d'un fichier 
sélectionné avec le curseur. 

- Dump sur écran ou imprimante 
des secteurs d'un fichier sélection¬ 
né avec le curseur. 

- Dump sur écran ou imprimante 
d'un secteur au choix. 

- Modification du secteur dumpé à 
l'écran par l'éditeur plein écran. 

IMPLANTATION DU 
PROGRAMME 

Le programme est entièrement 
écrit en langage machine, il est im¬ 
planté en mémoire de #8FFD à 
#A4CF. Deux points d'entrée sont 


possibles ; le 1er en #8FFD initiali¬ 
se le lecteur n° 1, l'autre point d'en¬ 
trée est en #9800, et ne modifie 
pas le n° du lecteur en cours. 

MODE D’EMPLOI 

Dès le lancement de DEBUG, le ca¬ 
talogue de la disquette est chargé 
en mémoire, puis affiché à l'écran à 
concurrence de 14 fichiers. Les 
fichiers interdits à l'écriture (lockés), 
sont affichés en rouge, les autres 
en bleu. Un curseur s'affiche sur la 
première ligne, les flèches UP et 
DOWN permettent de déplacer ce 
curseur, si le catalogue contient 
plus de 14 fichiers, la suite du cata¬ 
logue s'affiche lorsque le curseur 
est en bas de l'écran, on peut égale¬ 
ment revenir aux 14 fichiers précé¬ 
dents en remontant le curseur en 
haut de l'écran. 

Huit options sont proposées sous 
forme de menu à la partie inférieure 
de l'écran (Voir la figure n° 1 ) ; 

• Option L LOAD 

Permet de charger en mémoire le 
programme ou le fichier sélection- 
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né par le curseur. Afin d'éviter un 
plantage, assurez-vous de ne pas 
écraser la zone mémoire #9F42 à 
#9FB8 (utilisez la fonction A pour 
vous en assurer). 

• Option R RUN 

Identique à la fonction L, mais avec 
lancement de l'exécution du pro¬ 
gramme. Les précautions d'utilisa¬ 
tion sont identiques à la fonction L. 

• Option D DUMP 

Après sélection du fichier à dumper 
à l'aide du curseur, tapez D, le 1er 
secteur du fichier s'affiche à l'écran 
ainsi que le n° de piste et de sec¬ 
teur (figure n° 4). 

En fait, l'affichage se fait par 1/2 sec¬ 
teur, les flèches permettent de pas¬ 
ser de l'un à l'autre. Un menu affi¬ 
ché à la partie inférieure de l'écran 
(figure n° 2) vous renseigne sur les 
options possibles sous DUMP. 

Options de DUMP 

- Flèches : passage au 1/2 sec¬ 
teur précédent ou suivant, lorsque 
le premier ou le dernier secteur est 
dépassé, retour au menu principal. 

- M MODIF : permet de modifier le 
1/2 secteur affiché. Le déplace¬ 
ment du curseur s'obtient à l'aide 
des flèches. La modification peut 
se faire en entrant les codes dans la 


C'jrse'ir 



Adresse fichier 


ctior. (fléchés) - Option Iminuly 

TDOS .SYS 
A .BAS 
MENU .B IN 
S-MÉNU1 .TXT 
S-MENUS. .TXT 


V ) ' L. 1 'i 1 ^ • I A I 

TRANSFER.BAS 

fïfeifpsiUu 


C'JbJ . TXT 

&U'p3 .TXT 
&UG4 . T X T * l OOO * 23F D 
.TXT 

ÉiuS 4,m 


üosItx 

J'j7 .TXT#0300 HSFFD 


□ LOAD [T] RUN 0 dump CD LIS 
[Â~| ADD. [TT) LPS [Ü] CAT □ FIN 


FIGURE No 1ï MENU PRINC IFAL 


Adresse 

dans le secteur Zone Codes Zone A*?C 11 
























partie gauche, ou en tapant directe¬ 
ment le caractère ASCII dans la par¬ 
tie droite, dans les 2 cas les deux 
zones sont mises à jour automa¬ 
tiquement. 

Lorsque la modification est effec¬ 
tuée, tapez sur RETURN pour sortir 
de MODIF, le programme demande 
si vous êtes sûr de vous, dans l'affir¬ 
mative la modification est effectuée 
sur la disquette, dans le cas con¬ 
traire, le secteur n'est pas modifié. 
Le retour se fait dans DUMP. 

-I IM P : Bascule permettant la 
mise en service ou l'arrêt de l'impri¬ 
mante. Lorsque le défilement des 
secteurs est obtenu par la touche 
PREC, l'imprimante est automati¬ 


quement mise hors service. 

- F FIN : Fin de DUMP et retour au 
menu principal de DEBUG avec affi¬ 
chage du catalogue. 

• Option T LIS 

Permet de lire puis d'afficher le cata¬ 
logue d'une disquette nouvelle¬ 
ment mise en place. Utile pour cher¬ 
cher un fichier sur une disquette 
sans relancer DEBUG. 

• Option A ADD 

Inscrit l'adresse de début et de fin 
d'implantation d'un fichier sur la 
même ligne que son nom. Cette 
fonction est très utile pour les 
fichiers de type binaire. 


FICHIER COURANT» 

"Ç-DEBUGZ 

.TXT" 

Q LOCK \ü\ ULOCK 

□ 

□ DEL 

[~D~I DUMP [ÏÏ] DISC 

fïïl RENAM 

|~f| fin 


FIüURE No 


3:MENU DE 


CATALOüUE 


Pi 

s t e 

No 

OR 

Se- 

t e« j r No 

OB 




OO 

on 

TR 

rn 

2D 

rn 

rn 

rn 

rn 
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(')>: 

rn 

'■P 
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rn 

rn 

rn 

rn 




i<> 

rn 

;-n 

:r< 

rn 

rn 

ILi 

rn 

21 

— 

— 

— 

i* 

rn 

2l» 

2 D 

ri' 

rn 

rn 

rn 

rn 

— 

— 

— 

20 

30 

2D 

20 

20 

$ 

20 

3B 

io 

. i > 

UD 

rS 
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20 
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20 

O 
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TR 

un 
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47 
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20 
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20 
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41 
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U 

AU 
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pp 

4P 
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20 

ro 

(SUE 


AS 

2< » 

;o 
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20 

20 
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3B 

on 
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20 
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20 
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20 

ru 
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20 
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F USURE No 4:DUMP D'UN SECTEUR EUR 


IMPRIMANTE 


• Option N LPS 

Dump des secteurs correspondant 
à la liste piste-secteurs du fichier 
sélectionné par le curseur. Toutes 
les options de DUMP sont utili¬ 
sables sur la liste piste-secteurs. 

• Option C CAT 

Opérations diverses sur le cata¬ 
logue, le menu catalogue s'affiche 
(figure n° 3), donnant accès à sept 
fonctions. En général, ces fonc¬ 
tions s'appliquent au fichier courant 
sélectionné par le curseur. 

Options du CATALOGUE 

- L LOCK : Effectue le verrouil¬ 
lage en écriture du fichier courant. 

- U UNLOCK : Effectue le déver¬ 
rouillage en écriture du fichier cou¬ 
rant. 

- X DEL : Supprime le fichier cou¬ 
rant, une confirmation vous est de¬ 
mandée. 

-D DUMP: Permet de dumper 
tous les secteurs de votre choix, le 
programme vous demande le n° de 
la piste et le n° du secteur de départ 
et l'affichage dans DUMP. Toutes 
les fonctions de DUMP sont utili¬ 
sables. 

- N DISQ : Permet de changer le 
n° du lecteur courant. 

- R RENAM : Vous demande le 
nouveau nom et renomme le fichier 
courant. Attention, il n'est pas 
conseillé de renommer le 1er fichier 
qui suit TDOS. 

- F FIN : Retour au menu principal 
de DEBUG avec affichage du cata¬ 
logue. 

• Option F FIN 

Retour à Finterprèteur Basic. 

PRECAUTIONS D'EMPLOI 

Il n'est pas possible de dumper la 
piste n° 0, ni de tenter d'appliquer 
une des fonctions décrites d-des 
sus sur TDOS. 

Ne pas tenter de lire le catalogue 
d'une disquette initialisée, mais 
n'ayant pas encore de fichier. Pour 
explorer les secteurs de cette dis¬ 
quette, il suffit de lancer DEBUG 
avec une disquette normale, d'ap¬ 
peler la fonction CAT, ensuite de 
mettre la nouvelle disquette et de 
lancer DUMP sous CAT. 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 


DEBUG JASMIN 


Par CRONIER Bernard version 


du 12 décembre 86 


HIMEM#8FFD 
AD=#8FFD 
s=0: N=Oï L= 1000 
FOR I = 1T02 
REPEAT 

REABC*:IFC*="FIN"THEN310 
C=VAL("#"+C*)*S=S+C 
PÜKEAD+N, C 
N=N+1 

IFNC20THEN240 
READSL*:SL=VAL("#"+SL*) 

I FSL< >STHENPRINT " ERREUR L I ONE "; L : STOP 
L=L+10:N=0:S=0:AD=AD+20 
UNTILC*="FIN" 

AD=#9800:S=0:N=0:L=L+10 
NEXTI 


230 
240 
245 
250 
260 
270 
280 
290 
300 
310 

315 

316 
365 
370 
375 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 END 
1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 



AD=VAL<"#"+AB*> 


IFPEEK <#C001)=#CCTHEN530 


’ ADAPTATION POUR ORIC 1 

7___________ 

FOR1=1T026STEP2 

READAB*,CO*:CO=VAL("4"+C0*) : 

DOKEAD,CO 

NEXT 

C0=#C5F8 
FOR1 = 1TOI 1 

READAD*:AD=VAL("#"+AD*) 

DOKEAD,CO 

NEXT 

7_______ ___ 

7 FIN ADAPTATION ORICI 


PRINT"SAUVEGARDE DU PRÛG. MACHINE (0/N)" 
GETR*:IFR$<>"0"THENSTOP 

PRINT"PREPARE Z UNE DISQUETTE ET TAPEZ ’C’ 
GETR$: IFR*< > ,, C"THEN320 
! SAVE"DEBUG.B IN 7 #SFFD?#A4CF" 


DSK TELESTRAT 


OIT? 0 AC I 

système auteur toutes matière* 

OUTIMATIC 1_ 

DIALOGUE ts|Kiel-M'KS_ 

protocole de liaieon et de Iran* 

SYSTEM ANIMATION _ 

CLAVIDACT 18S 

méthode de trappe, (aierty-qwerty ) 
MUSIRAMA 


195 


LA CITE DE CRISTAL 

leu de rôle graphisme* en 30 

CLOVIS 1 echecs 


ELEPHORM 

2 jeux de réflese et de mémoire 
MATH-SAM _ 


MEFIES TOI DE MEPHISTO 155 

ieu de rôle aveo graphismes 


K7 ATMpé 


120 F 
120F 


140 F 
130 F 


140 F 
150 F 


150 F 
130 F 


120F 
lOO F 


ETC... 
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Catalogue complet l détaillé contre 2 timbres à 2.20F 
gratuit pour toute commande 
Servsur minitel le weeh end ♦ tous les soirs de 18 a 9h 


4C, 2C ,98,20.85,91,AO,00,B9,9F,92,FO,06,99,A3,BE,C8,DO,F5,AO,OAED 
00•B9,7B,92,FO,20,99,BA,BF,C8,DO,F5,AO,00,B9,BC,92,FO,06,99,OBAB 
43,BF, CS ,DO,F5,20,E8,C5,C9•4F,DO,03,20,70,91,4C,SA,A1,A9,20,OAA3 
85,61,A5,60,C9,80,DO,06,A9,00,85,60,FO,04,A9,80,85,60,A9,00,0943 
1040 DATA SD,02,99,8D,03,99,SD,79,92,SB,78,92,A9,AE,AO,BB,85,00,84,01, 093C 
1050 DATA A9, C7, AO, BB, 85,02,84,03,4C, 27,92, AC, 03,9’v*, AE, 79,92, FO, OA, 91,096A 


































1060 

DATA 

60,91,02 

1070 

DATA 

C5.20.4D 

1080 

DATA 

41,99,20 

1090 

DATA 

99,8D,3C 

1100 

DATA 

91 » 4C,1D 

1110 

DATA 

20,19,92 

1120 

DATA 

EF,91,20 

1130 

DATA 

FO,OD,CE 

1140 

DATA 

99,AC,78 

1150 

DATA 

14,88»AD 

1160 

DATA 

92,SC,03 

1170 

DATA 

C9,3A,30 

1180 

DATA 

20,90,04 

1190 

DATA 

06,99 » AC 

1200 

DATA 

A2,08,A9 

1210 

DATA 

AD,79,92 

1220 

DATA 

09,S0,'91 

1230 

DATA 

AC,03,99 

1240 

DATA 

00,85,01 

1250 

DATA 

02,69,28 

1260 

DATA 

03,E9,00 

1270 

DATA 

38,A5,60 

1280 

DATA 

43,20,BA 

1290 

DATA 

30,C9,09 

1300 

DATA 

49,30,SD 

1310 

DATA 

4C,C6,90 

1320 

DATA 

20,46,6C 

1330 

DATA 

65,72,20 

1340 

DATA 

20,20,20 

1350 

DATA 

45,52,00 

1360 

DATA 

53,20,53 

1370 

DATA 

2F,4E,29 

1380 

DATA 

55» 55» 55 

1390 

DATA 

14,99,A3 

1400 

DATA 

60» AO,00 

1410 

DATA 

A9,4C,AO 

1420 

DATA 

FO,06,99 

1430 

DATA 

4E » FO,23 

1440 

DATA 

52»FO,09 

1450 

DATA 

96,4C,SB 

1460 

DATA 

C9»52,BO 

1470 

DATA 

99,3D,3C 

1480 

DATA 

BA,BF,20 

1490 

DATA 

AA,68,20 

1500 

DATA 

08,8E,AC 

1510 

DATA 

20,90,94 

1520 

DATA 

B9,BC,92 

1530 

DATA 

98,20,90 

1540 

DATA 

90,94,A9 

1550 

DATA 

20,66,94 

1560 

DATA 

85,60,84 

1570 

DATf, 

99,EE,3C 

1530 

DATA 

00,A9,F9 

1590 

DATA 

61,AE,02 

1600 

DATA 

8C,3B,99 

1610 

DATA 

CS,8C,3B 

1620 

DATA 

91,00,CS 

1630 

DATA 

F5.20.EE 

1640 

DATA 

CA» EO,17 

1650 

DATA 

99,10,99 

1660 

DATA 

74,65,20 

1670 

DATA 

75,72,20 

1680 

DATA 

20.55.4C 

1690 

DATA 

20,44,45 
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9A, 

40, 
DO, 
3B, 
02 , 

92, 
4C, 
AO, 
88 , 
00 , 
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41, 
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02 , 
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30, 
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00 , 
17, 
88 , 
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20 , 
20 , 
20 , 
20 , 


B5, 
3E, 
AD, 
AC, 
EO, 
02 , 
92, 
SL» 
8C, 
EE, 
C3, 
04, 
A9, 
99, 
00, 
92, 
92, 
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08,A9, 
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20 , 20 , 
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40.91, 
68 , 20 , 
91,02, 
91,00, 
OC,CE, 
OF,FO, 
99,33, 
AO,15, 
4C, 27 , 

AO, 00, 
8C,78, 
30,03, 
FO,A9, 
99,60, 
27,00, 
09,80, 
AC,73, 
18,A5, 
00 ? A5» 
03,60, 
08,85, 
00,85, 
OB,FO, 
20,30, 
92,EO, 
F5,90, 
6F,75, 
65,75, 
50,4F, 
20 , 20 , 
29,00, 
55,55, 

55.20, 
20,95, 

BF, CS, 
A7,94, 
C5,C9, 
21,C9, 
OB,94, 
20 , 10 , 
B9,93, 
EE,2B» 
E8, C5 » 
B6» AO, 
A9»B6, 
8L» F 2 » 
F5 » 20, 
93,SC, 
F2,93, 

99.91, 
60,FO, 
3B,99, 

98, AD, 
4C,9D, 
60,C9, 

99, CO, 
BD,SB, 
ES.C5, 
A9,20, 
00,99, 

20 . 20 , 
20,4C, 
20 , 20 , 
4D,50, 


FO, 

21, 

AO, 

AD, 

02, 

OC, 

CO, 

SC. 

92, 

8C, 

92, 
A2, 
00 » 
A9, 
F9» 
91, 
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/ dm. y 
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FF, 
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72, 
55, 
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AO, 
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04, 

94, 
20, 
OF, 
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C9, 
9D, 
10 , 
20, 
4F, 
20, 
20, 


59, 

9A, 

30, 

3C, 

99, 

EE, 
FF, 
78, 
AC, 
03, 
4C, 
00, 
AO, 
78, 
20» 
00 » 
Bl, 
69, 
E9, 
A5, 
A5, 
60 » 
C9, 
C9, 
FO, 
22, 
20, 
00, 
52, 

54, 
20, 

55, 
A3, 
06» 
F5, 
B6, 
FO, 
FO, 
34, 
AO, 
E8, 
4C, 
BA, 
80, 
95, 
A2> 
C5, 
93, 
OA, 

EF, 
AC, 

99, 

60v 

FO, 

00 , 

FO, 

OD, 

9B, 

99, 

20, 

43, 

20, 

20, 


48, 

AC, 

99, 

99, 

20, 

02, 

00 , 

92, 

03, 

99, 

27, 
60, 
20, 
AO, 
91, 
60, 
00, 

28, 
00» 
02, 
61, 
20, 

OA, 
7F, 
02, 
91, 
64, 
20, 
20 , 
45, 
53, 
55, 

AO, 
99, 
20, 
94, 
1F, 
20, 
94, 

OB, 
C9, 
7B, 

BF, 
FO, 
20, 
OA, 
C9, 
A2, 
SE, 
3B, 
3B, 
91, 
AC, 
35, 
09, 
E6, 
06, 
FO, 
BC, 
60, 
20, 
4B, 
20, 
20, 


80 , 
03, 
80 , 
CS, 
El, 
99, 
16, 
4C, 
99, 
SC» 

92, 
A2, 
85 » 
BE, 
9B » 
AC» 

29, 
85, 
85, 
E9, 
69, 
Al, 
FO, 

30, 
09, 
00, 
65, 
20 , 
56, 
53, 
55 » 
55, 
00, 
BA, 
5A, 
AO, 
C9, 
C9 » 
4C » 
20, 
12 , 
Al, 
20 , 

93, 
5E, 
4C, 
4F, 
07, 
AC, 
99, 
99, 
00, 
05, 
00 , 
AC, 
A9, 
90, 
21 , 
00 , 
03, 
53, 
20 , 
20 , 
4E, 


30, 
99, 
3B, 
91, 
91, 
20 , 
C8, 

27, 
CS, 
78, 
C9, 
01 , 
00 , 
85, 
CA, 
03, 
7F, 
00 , 
01 , 

28, 
00 , 
91, 

31, 
OB, 
20 , 
00 , 
70, 
20 , 
41, 
20 , 
52 » 
55, 
B9» 
BF, 
9B, 
00 , 
55, 
58, 
F9, 
B9, 
BO, 
20 , 
40, 
SC, 
99, 
E6, 
FO, 
4C, 
94, 
A9, 
91» 
CS, 
99, 
34, 
3B, 
22 , 
9B» 
G9» 
E4, 
20 , 
65, 
20 , 
20 , 
20 , 


99,20', 

91.60, 
99,AD, 
00 » 4l, 
20,FO, 
03,91, 
AD,79, 
92,8C, 
CO,08, 
92,4C, 
30 » 30 » 
60,18, 
84,01, 
00,-84, 
10,EF, 
99 » B1, 
91,00, 
A5,01, 
60,13, 
85,02, 

85.61, 
20,ES, 
C9 » 08, 
AO,7A, 
4C.6C, 
FF,03, 
6C.61, 
20 , 20 , 
4C,49 » 
56,4F, 
20,28, 

55.55, 
41,95, 
C3,00, 

20.90, 
B9,A2, 
FO,24, 
FO » OA, 
93,4C, 
93,FO, 
E4.8D, 
ES » C5, 
91,FO, 
F2» 93, 
4C,00, 
93,AO, 
03,4C» 
E6» 93, 
20•A7, 
10,AO» 
00,EE» 
A9,00, 
85 » 60 » 
01,AO, 

99.91, 
Al » 8B » 
BC,ES, 
7F,DO, 
9D.9B, 
50,69, 
63,74, 

20.55, 
20,53, 
20,44, 


E3.0879 
30,0917 
3E,OSAA 
22,090C 
91,0958 
20,0831 
92,0A37 
03,0384 
00» 0A2A 
27.08F9 
OC» 0998 
C9,06A5 
AD,0933 
01,036A 
60,0993 
02..086E 
60,030E 
69,0678 
A5,068B 
A5.062F 
60,06FC 
C5,0967 
FO,09BF 
92,0924 
90,0963 
20,03F4 
63,0749 
20,05B1 
44,0536 
55,040F 
4F.04AE 
55.05F6 
FO,0873 
F5.0C3E 
94,0A2B 
95» 0A29 
C9,OC10 
C9,0AA6 
5A,OSAA 
F6,095C 
07,OAEF 
99,0A27 
F5,0C2E 
A2,OAES 
98,092A 
00,0820 
00» 0B9E 
20,0B40 
94,OBF1 
99,09A6 
3B» 0916 
91,0A77 
84,OSCF 
06,Û7C4 
00» 08C8 
99,0AA2 
DO,OA14 
11,0A2D 
BC,0A80 
73,0938 
65.04EA 
20,048E 
20,0396 
49,042A 


n • 


22 




1700 DATA 53,51,20,20,20,52,20,20,52,45,4E,41,40,20,20,46,20,20,46,49,045E 
1710 DATA 4E,00i45,4E,54,52,45,5A,20,4C,45,20,4E,4F,55,56,45,41,55,20,053A 
1720 DATA 4E,4F,4D,20,00,20,46,49,43,43,49,45,52,20,43,4F,55,52,41,4E,050C 
1730 DATA 54,3D,20,22,00,21 » 4C,4F,43,4B,22,31,2E,20,20,20,20,20,20,20,037E 
1740 DATA 20»20,20,20,20,22,00,21,55,4E,4C,4F,43,4B,22,31,2E,20,20,20,0390 
1750 DATA 20,20,20,20,20,20,20,20,20,22,00,21,44,45,4C,22,31,2E,20,20,02F9 
1760 DATA 20, 20,20,20,20,20,20, 20», 20, 20,22,00,21,52,45,4E, 41,4D, 45,22,035D 
1770 DATA 31,2E,20,20- 20,20,20,20,20,20,20, '20,20,20,20,3D,20,20,20,20,02BC 
1730 DATA 20,20,20,20,20,20,20,20,22,00•20,20,40,45,43,54,45,55,52,20,0396 
1790 DATA 43,4F,55,52,41,4E,54,20,53,45,4C,45,43,54,49,4F,4E,4E,45,20,0595 
1300 DATA 3A,00,20,20,20,20,20,4E,4F,55,56,45,4C,-4C,45,20,53,45,4C,45,043D 
1310 DATA 43,54,49,4F,4E,20,3F,20,00,AO,00,B9,1F.96,FO,06,99,4C,BC,C8,0769 
1320 DATA DO, F5, ÂD, 01,96,99,4C, BC, AO, 00, B9, 3F, 96, FO, 06,99,9B, BC, CS, DO, 0B56 
1330 DATA F5,20,E3,C5,C9,31,90,F9,C9,35,10, F5,99,9B,BC,43,33,E9,30,AA,0B7B 
1340 DATA 68,20',36,93,20,E3,C5,4C,00,93,55,55,55,55,55,55,55,55,55,55,0754 
1350 DATA FIN 

1360 DATA 20,A5,99,20,64,9A,20,00,9B,AO,00,B9,21,98,FO,06,99,E0,B7,C3,0937 
1870 DATA DO,F5,A9,00,8D,2A,98,8D,2B,98,4C,50,9C,08,08,08,08,08,£A,IC,06B3 
1330 DATA 08,00,00,00, A9,31, A2,01,20,36,93,4»C, 00, 98,8D, 39, 99,8D, BC, 95, 06E4 
1390 DATA SD,D4,95,8D,E9,95,SD,01,96,SE,E9,99,60,4C,5E,98,A9,7F,A0,9S,0B37 
1900 DATA 4C,5E,93,A9,82,AO,98,4C,5E,93.A9,5A,AO,98,SD,63,98,3C,69,93,0A3C 
1910 DATA AO, FF, C8, B9,00., 06,99, 35, 00, DO, F7, A9,36,85, E9, A9,00,85, EA, 20, OA40 
1920 DATA 00,04,60,21,52,53,00,21,57,53,21,4C,4F,41,44,22,20,20,20,20,0303 
1930 DATA 20,20,20,20,20,20,20,20,20,22,21,22,20,20,20,20,20,20,20,20,0235 
1940 DATA 20,20,20,20,20,20,22,A9,01,8D,00,98,A9,00,35,00,A9,11,85,01,051F 
1950 DATA A9,14,AO,02,20,DS,98,20,45,98,AO,02,B1,00,C9,FF,FO,11,43,EE,093E 
1960 DATA 00,98,CS,B1,00,A3,63,E6,01,20,D3» 98,4C» BB,98,60,3D,8D,04,3C,0941 
1970 DATA 8E,04,A5,00,SD,8F,04,A5,01,3D,90,04,A9,01,SD,3C,04,60,A9,01,06EF 
1980 DATA 30,01,98,A9,00,AO,11,85,00,34,01,60, A9,BO,AO,BB,00,00,00,00,069E 
1990 DATA 00,00,00,00,00,00,00,00,00,00,00,00,42,55,46,46,45,52,20,52,022C 
2000 DATA 45,53,45,52,56,45,20,50,4F,55,52,20,55,4E,45,20,4C,49,47,4E,0582 
2010 DATA 45,42,55,46,46,45,52,20,52,45,53,45,52,56,45,00,00,00,00,00,043B 
2020 DATA 00,00,00,00,00,A9,7B,AO,99,4C,5E,99,A9,7F,AO,99,4C,5E,99,A9,07ED 
2030 DATA 33,AO,99,4C,5E,99,A9,99,AO,99,SD,63,99,80,69,99,AO,FF,03,B9,0BB6 
2040 DATA 00,06,99,35,00,DO,F7,A9,36,85,E9,A9,00,35,EA,20,00,04,60,21,07A5 
2050 DATA 52,53,00,21,57,53,00,21,40,4F,41,44,22,31,2E,20,20,20,20,20,03D2 
2060 DATA 20,20,20,20,20,20,20,20,22,21,22,20,20,20,20,20,20,20,20,20,0285 
2070 DATA 22,A9,01,8D,00,99,A9,00,85,00,A9,11,85,01,A9,14,AO,02,20,D8,06B7 
2080 DATA 99,20, 45,99, AO, 02, B1,00, FO, 15, C9, FF, FO, 11,' 43, EE, 00,99, CS, B1, OAOO 
2090 DATA 00,A3,68,E6,01,20,DS,99,4C,B9,99,60,SD,3D,04,SC,8E,04,A5,00,0867 
2100 DATA SD,8F,04,A5,01,8D,90,04,A9,01,8D,8C,04,60,A9,01,8D,01,99,A9,0788 
2110 DATA 00,AO,11,85,00,34,01,60,A9,20,AO,BC,85,00,84,01,60,18,A9,12,067D 
2120 DATA 65, 00, 85,00, A9, 00,65,01,85, 01,60, 18, A9, 12,65,60,85,60, A9,00, 0605 
2130 DATA 65,61,35,61,60,48,SA,20,35,9A,8D,3B,99,68,20,35,9A,OA,OA,OA»06A3 
2140 DATA OA,OD,3B,99» 60,C9,40,30,04,38,E9,37,60,33,E9,30,60,43,29,FO,0752 
2150 DATA 4A, 4A, 4A, 4A, 20, 58,9A, SD, 3B » 99,68,29, OF, 20,58,9A, 3D, 3C, 99,60, 070F 
2160 DATA C9,OA,30,04,18,69,37,60,18,69,30,60,20,EE,99,A9,00,AO,10,S5,06B5 
2170 DATA 60,84,61,A2,0E,18,A5,00,69,04,35,00,AS,01,69,00,85,01,AO,00,05D9 
2180 DATA B1,00, C9, FF,FO,10,Bl,00,91,60,08, CO,12»DO,F7,A9,FF,91,60,20,0B35 
2190 DATA 13,9A,20,05,9A,CA,DO,E2,EE,01,99,AD,00,99,CD,01,99,30,02,10,085F 
2200 DATA 06,60,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,0720 
2210 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,06A4 
2220 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,06A4 
2230 DATA 55,55,55,55,55,55,55.55.55,55,55,55,55,55,55,55,55,55,55,55,06A4 
2240 DATA 55,55,55,55,55,55,55,55.A9,OA,SD,6A,02,20,CE,CC,A9,00,8D,EO,0824 
2250 DATA 02,8D,El,02,20,04,F2,A9,03,8D,El,02,20,10,F2,AO,00.B9,AA,9B,0864 
2260 DATA FO,06,99,D3,BB,CS.DO,F5,AO»00,B9,CE,9B,FO,06,99,A3,BE,C8,DO,0CF4 
2270 DATA F5,AO,00,B9,F3,9B,FO,06,99,43,BF,CS,DO,F5,AO,01,B9,13,9C,FO,0BF3 
2280 DATA 08,69,OA,99,86,BB,C3,DO,F3,A9,01,SD,86,BB,20,5A,9B,60,A2,06,0975 
2290 DATA A9,73,AO,BE,35,00,34,01,AO,02,A9,14,91,00,AO,OC,91,00,AO,16.076C 
2300 DATA 91,00,AO,20,91,00,A9,10,AO,05,91,00,AO,OF,91,00,AO,19,91,00,0656 
2310 DATA AO,23,91,00,CA,30,14,20,91,9B,4C,64,9B,18,A5,00,69,28,85,00,06CC 
2320 DATA A5,01,69,00,35,01,60,AO,26,A9,10,99,F2,BE,88,10,FA,60,53,65,0867 
2330 DATA 6C.65,63,74,69,6F,6E » 20,28,66,6C,65,63,68,65,73,29,20,2D,20,06A6 
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91.» 

0A26 

oo ? 

CO? 

IC 

DO» 

F9 : 

CS ? 

SC 

40» 

99 

AC, 

41, 

99 , 

Bl 

60 , 

CS 7 

CO» 

09 , 

FO: 

1D, 

SC 7 

0A93 

41 » 

99 » 

C9 

20 , 

30? 

12 : 

C9 

7E» 

10 : 

0 E ? 

AC» 

40: 

99 

91 , 

00 7 

20 » 

CF, 

A3: 

CS 7 

SC ? 

0866 

40 , 

99 » 

DO 

DD, 

A9, 

2E, 

DO 

EE, 

A9 

OD» 

20 ? 

CF , 

A3 

Av ? 

OA, 

20 » 

CF , 

A3: 

20 ? 

91 , 

0A59 

98, 

18, 

A 5 

60 ? 

69 » 

08 ? 

85 

60? 

A5- 

61 , 

69, 

00 » 

85 

61 , 

A5, 

60 ? 

C9? 

80 

FO, 

09 , 

08 A A 

A5, 

/. * 
j. ? 

C 9 

21 : 

FO: 

03? 

4C 

2F, 

A 2 

20 ? 

ES» 

C5 » 

C9 

4P» 

FO, 

13, 

C9 , 

49: 

FO » 

12 , 

09 F A 

09» 

46 » 

FO, 

1F: 

C9? 

OB » 

FO: 

1E, 

C9: 

OA, 

FO , 

1 D, 

4C 

E5, 

A2 ? 

4C» 

00 » 

90 

AD, 

2A, 

0966 

98» 

FO, 

06 

CE: 

2A, 

va ? 

4C 

E5, 

A2: 

EE, 

2 A , 

98 » 

4C 

Cl , 

Al , 

4C» 

00 ? 

90 

4C » 

60, 

09 DF 

A3 7 

A5, 

61: 

C9» 

21 , 

FO, 

03 j 

4C » 

27: 

A2» 

AE, 

2B, 

98 

DO, 

1D» 

20 ? 

3B, 

A4: 

AD, 

04 » 

03 A 9 

99, 

85, 

00 : 

AD: 

05, 

99, 

|-,c 

O-i 

01 , 

20 

IB, 

A4, 

AD, 

3B- 

99, 

C9, 

FF, 

DO, 

03: 

Al ? 

00 , 

0836 

98» 

40, 

7 B : 

Al» 

EE, 

07, 

99: 

A9 » 

12 : 

CD, 

07 ? 

99 » 

DO- 

60 » 

A9» 

01 : 

SD, 

07: 

99, 

EE, 

09 AB 

06 » 

99» 

A9 

52, 

CD, 

06, 

99 

DO? 

51: 

4C ? 

00 , 

98 » 

A 9 

00 ? 

8 D, 

2A, 

98, 

A5 

61, 

C9» 

03 D 2 

21 » 

DO, 

OB: 

A9» 

20 , 

85, 

61: 

A9 ? 

00 » 

85, 

60» 

4C» 

27: 

A2 » 

AE, 

2B» 

98» 

DO: 

21 , 

20 , 

07DO 

29» 

A4, 

AD: 

04: 

99, 

85, 

00 

C9, 

02 : 

DO» 

OA, 

AD, 

05: 

99, 

C9, 

25? 

DO, 

03: 

4C, 

00 » 

0799 

98» 

AD, 

05, 

99, 

©CT 

•-I •-» ? 

01 , 

20 , 

IB, 

A4, 

4C, 

7B, 

Al, 

CE, 

07, 

99, 

DO, 

OD, 

A9: 

11 , 

8 D, 

0842 

07, 

99, 

CE, 

06, 

99, 

DO, 

03, 

4C» 

00 , 

93, 

AD, 

07, 

99 

8 D, 

3C, 

99, 

AD, 

06, 

99, 

8 D, 

084C 

3B, 

99, 

4C, 

7B, 

Al, 

AD, 

3B: 

99, 

91, 

00 , 

20 , 

CF, 

A3: 

AD, 

3C, 

99, 

CS» 

91 

00 , 

20 , 

08DB 

CF, 

A3, 

60: 

AE, 

2A » 

98, 

FO, 

03 ? 

20 , 

D8, 

A3, 

60, 

8 D: 

CE, 

A4, 

SA, 

48, 

98, 

43, 

AD, 

0A3E 

CE, 

A4, 

20 , 

Cl, 

F5, 

68 , 

AS: 

6 S ? 

AA: 

60, 

A9» 

OA, 

8 D: 

6 A, 

02 , 

20 , 

CE» 

CC: 

A9, 

00 , 

09D9 

8 D, 

EO, 

02 , 

8 D, 

El, 

02 , 

20 : 

04, 

F2 

A9, 

03, 

8 D » 

El 

02 , 

20 , 

10 , 

F2, 

60: 

A9, 

00 , 

083C 

AO, 

20 , 

85: 

00 , 

84, 

01 , 

AD, 

3B » 

99, 

Al ? 

3C, 

99 , 

20 , 

Dy ? 

99, 

20 , 

45, 

99, 

60, 

AO, 

085B 

00 , 

Bl, 

00 

8 D, 

3B : 

99, 

L*o 

Bl, 

00 » 

8 D, 

3C, 

99, 

60, 

38, 

AD, 

04, 

99, 

E9 

02, 

8 D, 

0347 

04, 

99, 

AD: 

05 » 

99, 

E9, 

00 : 

8 D? 

05, 

99, 

60, 

13, 

AD, 

04, 

99, 

69 » 

02 , 

8 D: 

04, 

99» 

0753 

AD, 

05, 

99 

69, 

00 ? 

8 D, 

05, 

99, 

60, 

03, 

20 , 

50, 

69 

73, 

74, 

65, 

20 » 

4E 

6F, 

20 , 

0664 

20 ? 

20 » 

20 : 

20 ? 

20 ? 

20 , 

20 , 

20 , 

20 ? 

53, 

65» 

/-.y, , 

74, 

65, 

75, 

72, 

20 ? 

4E 

6F, 

20 , 

04F8 

20 , 

O 

O 

5E 

20 , 

20 , 

50, 

52 

45, 

43, 

20 , 

20 ? 

20 , 

4D 

20 ? 

20 , 

4D» 

4F, 

44: 

49, 

46, 

0444 

20 , 

20 , 

49, 

20 » 

20 » 

49, 

4D» 

50, 

er -i 

00 ? 

7C» 

20 , 

20 » 

53 ? 

55, 

49, 

56 ? 

20 ? 

20 ? 

20 , 

0464 

20 , 

20 , 

20 

20 » 

20 , 

20 ? 

20 , 

20 ? 

20 , 

20 , 

20 » 

20 , 

20 

20 ? 

20 » 

20 , 

20 , 

20 

20 , 

20 ? 

0230 

46» 

20 , 

20 » 

46, 

49, 

4E, 

00 

20 ? 

20 ? 

20 , 

20 , 

20 » 

20 , 

20 , 

20 » 

20 , 

20 ? 

20 : 

20 ? 

20 , 

0303 

20 ? 

20 ? 

20 » 

20 , 

20 , 

20 , 

20 , 

20 , 

20 » 

20 ? 

20 » 

20 , 

20 , 

20 , 

20 , 

20 , 

20 : 

00 

00 , 

OE, 

022 E 


A COPIER POUR UN ORIC 1 


DATA9B06»CCOA? 9F60 , CCOA,A3F0 ?CQOA 

DATAA3E3,F57B 

DATA9B11 ? F17F,A3FB, F17F 

DATA9B19,F18B,A403,F1SB 

DATA9386,C4B5,9D6C , C4B5 , 9F63,C4B5 

DATA9FSD,FAC7 

DATA9FB6,C98D 

DATA902B ? 9088 » 922B ? 934E ? 93 B A » 9307 » 9419» 94F3 » 9.6 7 B » 9D19 » A2E6^ 
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SORTIE STEREO 
POUR ORIC1 

OUAIMOS 

Francis POTTIER 


F ace aux micros actuels, l'ORIC-ATMOS présente une lacune 
musicale importante, l'absence de sortie stéréophonique. 

Pour pallier ce défaut, nous avons eu l'idée de créer une inter¬ 
face permettant d'exploiter au mieux les performances de l'AY- 
8912 . 

Cette interface, suffisamment petite pour se loger dans l'ordi¬ 
nateur, ne nécessite qu'une légère intervention. Ceci fait, l’Oric 
fonctionne comme auparavant, exceptées les deux entrées-sorties 
SOUND de la prise magnétophone qui deviennent la sortie son stéréo, 
permettant d'attaquer un casque ou l’entrée d’un amplificateur. 


A l'origine, les trois voies du AY- 
8912 sont mixées en mono sur le 
haut-parleur interne. Le signal de 
sortie du processeur de sons de 
l'Oric est un signal numérique qu'il 
est donc très facile de traiter. Un 
quadruple amplificateur comme le 
LM 324, très bon marché est donc 
amplement suffisant. Nous n'en 
utilisons que deux montés en 
amplificateurs suiveurs. Ils servent 
de tampons au mixage réalisé par 
les résistances R4-R5 et R6-R7. 
La voie 2 est répartie à un niveau 
moitié sur chacune des deux au¬ 
tres, et se retrouve à son niveau 
normal sur le casque au milieu. Les 
résistances R8-R9 remixent le son 
en mono pour le haut-parleur inté¬ 
rieur de l'Oric. Les résistances R10- 
R11 limitent le niveau du casque à 
quelque chose de supportable. Il 
est possible de réajuster les ni¬ 
veaux sonores ORIC et casque en 
jouant sur les valeurs de ces quatre 
résistances. 


L'auteur se tient à disposition des 
lecteurs ne pouvant réaliser eux- 
mêmes le montage et, peut le four¬ 
nir entièrement réalisé et testé. 
Pour tout renseignement, écrire 
avec enveloppe affranchie self- 
adressée, à la rédaction qui trans¬ 
mettra. 


MONTAGE : 

-Supprimez les résistances R2 et 
R4 en sectionnant les pattes à leurs 
bases (voir schéma A). 

- Reliez le fil violet au point (2). 

- Reliez le fil vert au point (4). 

- Reliez le fil jaune au point (5). 

- Coupez les bandes du circuit 
imprimé entre les pattes 4 et 5 et 
les pattes 1 et 4 du AY-8912 (voir 
schéma A). 

- Reliez le fil orange sur la patte 1 
au point (6). 

- Reliez le fil marron sur la patte 4 
au point (8). 

- Reliez le fil rouge sur la patte 5 
au point (7). 


2 

X 





Dessin A 


1 3 


Dessin B 
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-Coupez à la base les deux bro¬ 
ches de la prise magnétophone 
(voir schéma B). 

- Reliez le fil gris sur la broche 
gauche au point (1). 

- Reliez le fil bleu sur la broche 
droite au point (3). 

- Pour ATMOS, collez le montage 
sur l'emplacement vide à coté du 
bouton RESET. 



8 k 2 
10k 
22 k 
8 k 2 
22 k 
10k 
8 k 2 


— LM324 



Schéma d'implantation 


Circuit imprimé 


NOMENCLATURE : 

- 1 circuit intégré LM 324. 


- 4 résistances 

10 

k£2 

(1/4 

de 

watt). 





- 2 résistances 82 

£2 (1/4 de watt). 


- 3 résistances 

8.2 

K£2 

(1/4 

de 

watt). 





- 2 résistances 

22 

Kft 

(1/4 

de 


watt). 

- 20 cm de câble en nappe à 8 
brins. 

- 1 circuit imprimé époxy 35*40. 
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jepuis le temps que vous réclamiez des jeux à deux 
'joueurs, en voici un, c'est "THE CAR WAR". Vous 
allez pouvoir appeler votre petit copain en renfort 
pour massacrer votre clavier. 


Deux voitures sont dans une 
arène, tournant en sens inverse. 
Elles doivent ramasser le maxi¬ 
mum de points chacune. A la fin 
de la partie, le vainqueur est celui 
qui en a collecté le plus. 

L'arène se compose de plusieurs 
rectangles successifs emboîtés 
les uns dans les autres. Quatre 
ouvertures sont percées dans 
chaque rectangle pour autoriser 
le passage de l'un à l'autre. Celui- 
ci s'effectue à l'aide des touches 
"flèche gauche" et "flèche 
bas" ; pour le joueur, la première 
amenant la voiture vers l'inté¬ 
rieur, la seconde vers l'extérieur. 
De même, le second joueur uti¬ 
lise les flèches "haut" (extérieur) 
et droite (intérieur). 

Lorsqu'il y a collision entre les 
deux joueurs, une pénalité d'une 
voiture est donnée aux deux 
joueurs. Pas question de faire un 
constat amiable d'accident ! 

En revanche, tous les trois 
tableaux un bonus d'une voiture 
est accordé à chacun des deux 
joueurs. La contenance des gara¬ 
ges étant limitée à 3 véhicules, le 
nombre de voitures par joueur en 
est limité d'autant. 

A noter également que le jeu va 
d'autant plus vite que l'on pro¬ 


gresse. 


POUR TAPER LE PROGRAMME 

The Car War est composé de 
trois parties. Un Loader (entendez 
par là un programme destiné à 
charger les autres), un générateur 
de code objet, et un Basic d'ex¬ 
ploitation. 

Tapez le premier programme, 
entièrement et sauvez-le en auto¬ 
matique (,AUTO) sur une cas¬ 
sette. Tapez alors le second. 
Attention : une erreur dans la 
retranscription des DATA serait 
fatale. Faites donc très attention. 
Un système de somme de con¬ 
trôle est présent, mais il ne 
détecte pas les inversions. Exem¬ 
ple : si vous entrez DATA 
60,A9... au lieu de DATA 
A9,60..., le programme ne fonc¬ 
tionnera pas normalement, mais 
il n'affichera pas non plus d'er¬ 
reur lors du chargement. Sauvez 
le second programme (à la suite 
du premier sur la cassette) en 
automatique (,AUTO). 

(Peu importe le nom sous lequel 
vous sauvez les programmes sur 
la bande magnétique, il est 
ignoré). 


Vous avez alors déjà toutes mes 
félicitations d'avoir tapé un tel lis¬ 
ting. 

Il ne vous reste plus qu'à taper et 
à sauver le dernier programme, 
toujours en automatique. 


POUR LES IMPATIENTS 
DU CHARGEMENT 

Vous pouvez seulement sauver le 
code généré par le deuxième pro¬ 
gramme dans votre cassette de 
jeu. Faites CSAVE "Code", 
A# 9000,E # 9550. Ne sauvegar¬ 
dez donc pas le deuxième pro¬ 
gramme sur cette bande 
(conservez-en quand même une 
copie). Modifiez alors le Loader 
en rajoutant un deuxième 
CLOAD" " après le premier. 

Il ne reste plus qu'à dire que le 
code machine n'empiète pas sur 
le DOS pour que les possesseurs 
de disquettes puissent le transfé¬ 
rer sans inquiétude. 


NOTE POUR LES FAINEANTS 

THEORIC propose les disquettes 
contenant TOUS les programmes 
de la revue, donc celui-ci. A bon 
entendeur, salut... 
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1 HIMEM#8000 


100 

REM 

(MM)########################## 

1 10 

REM 


120 

REM 


130 

REM 

THE 

140 

REM 


150 

REM 

CAR 

160 

REM 


170 

REM 

WAR 

180 

REM 


190 

REM 


200 

REM 

PREMIERE PARTIE : 

210 

REM 


220 

REM 

- PRESENTATION 

230 

REM 

- LOADER 

240 

REM 


250 

RFM 


260 

REM 

(C) ERIC VIEL SEPT 86 

270 

REM 


280 

REM 


290 

: 


990 

PAPER 1:INK3 


ÎOOO HIRES :POKE 618,10 
1010 CURSET 20,50,3 
1020 N=4:FOR J=1 TO 6 
1030 FOR 1=1 TO N 

1040 CHAR 127,0,1 :CURMOV 12,0,3:NEXT 
1050 N=N+0.5 

1060 CURSET 20-6*(INT(J/2)=J/2),50+(J 
—1)*8,3:NEXT 

1070 CURSET 74,58,3:CHAR 127,0,0 
1080 CURSET 86,74,3:CHAR 127,0,0 
1090 FOR 1=1 TO 6 

1100 CURSET 56+1,50,1:DRAW 66,88,1 
1110 NEXT 

1120 CURSET 220,50,3 
1130 N=4: FOR J=1 TO 6 
1140 FOR 1=1 TO N 

1150 CHAR 127,0,1:CURMOV -12,O,3:NEXT 
1160 N=N+0.5 

1170 CURSET 240-(20-6*(INT(J/2)=J/2)> 


,50+(J—1)*8,3:NEXT 
1175 CURSET 166,58,3:CHAR 127,0,0 
1180 CURSET 154,74,3:CHAR 127,0,0 
1190 FOR 1=6 TO 1 STEP-1 
1200 CURSET 183+1,50,1:DRAW -66,88,1 
1210 NEXT 
1220 : 

1230 : 

1240 CURSET 93,50,3:M*="ERIC VIEL":G 
OSUB 9000 

1250 CURSET 93,62,3:M*= 

OSUB 9000 
1300 CURSET 
1310 CURSET 


PRESENTE ": G 


10,150,1:DRAW 16,0,1 
18,150,1 : DRAW 0,20,1 
1320 CURSET 30,150,1 : DRAW 0,20,1 
1330 CURSET 46,150,1 : DRAW 0,20,1 
1340 CURSET 46,160,1 : DRAW -16,0,1 
1360 CURSET 66,150,1 : DRAW -16,0,1:DRA 
W 0,20,1 : DRAW 16,0,1 


1370 CURSET 50,160,1 : DRAW 8,0,1 
1380 CURSET 102,150,1 : DRAW -16,0,1:DR 
AW O,20,1:DRAW 16,0,1 
1390 CURSET 106,170,1 : DRAW 0,-20,1:DR 
AW 16,0,1:DRAW 0,20,1 
1400 CURSET 106,160,1 : DRAW 16,0,1 
1410 CURSET 126,170,1:DRAW 0,-20,1:DR 
AW 16,0,1 : DRAW 0,10,1:DRAW -16,0,1 
1420 DRAW 6,0,1:DRAW 10,10,1 
1430 CURSET 166,150,1 : DRAW O,20,1:DRA 
W 10,-7,1:DRAW 10,7,1:DRAW O,-20,1 
1440 CURSET 190,170,1 : DRAW 0,-20,1:DR 
AW 16,0,1:DRAW 0,20,1 
1450 CURSET 190,160,1 : DRAW 16,0,1 
1460 CURSET 210,170,1 : DRAW 0,-20,1:DR 
AW 16,0,1:DRAW 0,10,1:DRAW -16,0,1 
1470 DRAW 6,0,1:DRAW 10,10,1 
1480 : 

1490 : 

1500 DATA #A2,#C3,#AO,#28,#B9,#28,#A0 
1510 DATA #99,#00,#AO,#88,#D0,#F7 
1520 DATA #18,#AD,#05,#80,#69,#28,#8D 
,#05,#80 

1530 DATA #AD,#06,#80,#69,#00,#8D,#06 
, #80 

1540 DATA #18,#AD,#08,#80,#69,#28,#8D 
,#08,#80 

1550 DATA #AD,#09,#80,#69,#00,#8D,#09 
, #80 

1560 DATA #CA,#F0,#03,#4C,#02,#80,#60 

1570 DATA 999 

1580 A=#8000:READ D 

1590 REPEAT:POKE A,D:A=A+1 :READD 

1600 UNTIL D=999 

1610 FOR 1=1 TO 140:DOKE #8005,#A028: 
D0KE#800B,#A000:CALL#8000:NEXT 
1620 CURSET 50,150,3:CIRCLE 10,1 
1630 CURSET 170,145,3:CIRCLE 15,1 
1640 CURSET 200,143,1: DRAW -14,2,1 
1650 CURSET 154,145,1 : DRAW -93,5,1 
1660 CURSET 40,150,1 : DRAW -20,2,1 
1670 DRAW 40,-20,1:DRAW 140,-15,1 
1680 DRAW O,15,1:DRAW 5,0,1:DRAW 0,3, 
1:DRAW-5,0,1:DRAW 0,7,1 
1690 CURSET 103,127,1 : DRAW 7,-5,1:DRA 
W 22,-6,1:DRAW 2,8,1 
1700 CURSET 180,119,1:DRAW 0,-10,1:DR 
AW -20,2,1:DRAW 0,9,1:DRAW 0,-9,1 
1710 DRAW -15,2,1:DRAW 3,-5,1:DRAW 50 
,—5,1: DRAW -3,+5,1 
1720 DRAW -15,1,1 

1730 CURSET 097,130,3:M*=”Eric Viel": 
GOSUB 9000 

1740 PR INT: PRINTCHR* (4) " "CHR*(27)" 

N *** CHARGEMENT EN COURS ***"CHRS>(4) 


2000 CLOAD"" 

8999 END 

9000 FOR C=1 TO LEN(M*):CHARASC(MID*( 
M*,C,1)>,0,1 :CURMOV 6,O,3:NEXT:RETURN 
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100 

REM 

110 

REM 


120 

REM 

THE 

130 

REM 


140 

REM 

CAR 

150 

REM 


160 

REM 

WAR 

170 

REM 


180 

REM 


190 

REM 

DEUXIEME PARTIE : 

200 

REM 


210 

REM 

- GESTION DES VOITURES 1 

220 

REM 

LANGAGE MACHINE 

230 

REM 


240 

REM 

(C) ERIC VIEL SEPT. 1986 

250 

REM 


260 

REM ########################### 

270 

: 


280 

: 


285 

CLS 


290 

L=1000 

300 

FOR I 

=#9000 TO #9517 STEP 8 

310 

FOR J 

=1 TO 1+7 

320 

READ 

D*:D=VAL<"#"+D*):POKE J,D 

330 

S=S+D 

:NEXT:READ CS 

340 

IF CSOS THEN PR INT "ERREUR ! ! ! 1 

NE "J 

L" A 

VERIFIER.": END 

350 

S=0: L 

=L+10:NEXT 

360 

PR INT 

"ROUTINE IMPLANTEE" 

365 

WAIT 

100:CLS 


370 PRINT: PRINTCHR*(4)" "CHR*(27)"N 
*** CHARGEMENT EN COURS ***"CHR*<4) 


380 CLOAD 

390 END 

1000 

DATA 

1010 

DATA 

1020 

DATA 

1030 

DATA 

1040 

DATA 

1050 

DATA 

1060 

DATA 

1070 

DATA 

1080 

DATA 

1090 

DATA 

llOO 

DATA 

1110 

DATA 

1120 

DATA 

1130 

DATA 

1140 

DATA 

1150 

DATA 

1160 

DATA 

1170 

DATA 

1180 

DATA 

1190 

DATA 

1200 

DATA 

1210 

DATA 

1220 

DATA 

1230 

DATA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

DATA 

1310 

DATA 


30 


M II 


A9,00,85,00,A9,AO,85,01,765 
A9,80,85,02,A9,BB,85,03,924 
A2,19,AO,28,61,00,91,02,711 
88, DO, F9, 18, A5,00,69,28, 927 
85,00,A5,01,69,00,85,01,538 
18,A5,02,69,28,85,02,A5,636 
03,69,00,85,03,CA,DO,DA,872 
A9,1C,8D,10,8F,8D,12,8F,799 
A9, 16, 8D, 11,8F,8D, 13,8F,795 
A9,FF,8D,14,8F,A9,00,BD,1038 
15,8F,A9,6C,8D,16,BF,A9,916 
03,8D,00,8F,8D,02,8F,A9,742 
16,BD,01,8F,8D,03,8F,A9,763 
01,8D, 04,8F, A9, OO, 8D, 05, 604 
8F, A9, 6B,8D,06,8F,AD,00,882 
8F, 8D, 02, 8F, AD, 01,8F, 8D, 887 
03,BF,20,7F,92,A5,00,85,749 
02,A5,01,85,03,AO,34,20,548 

10.95, FO,4B,A9,01,8D,07,798 
8F,A9,00,SD,08,8F,8D,09,754 
BF,AD,06,8F,C9,69,DO,05,984 
A9,FF,8D,08,8F,C9,6À,DO,123 
05,A9,01,8D,08,8F,C9,6B,775 
DO,05,A9,FF,8D,09,8F,C9,113 
6C,DO,05,A9,01,8D,09,8F,784 
18, AD, 00,8F,6D,08,8F,8D,741 
00,8F,18,AD,01,8F,6D,09,602 
8F,8D,01,8F,4C,2E,91,AO,855 

35.20.10.95, FO,49,A9,O1,733 
8D,07,8F,A9,OO,8D,08,BF,752 
8D,09,8F,AD,06,8F,C9,69,921 
DO,05,A9,01,8D,08,8F,C9,876 


1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

DATA 

1380 

DATA 

1390 

DATA 

1400 

DATA 

1410 

DATA 

1420 

DATA 

1430 

DATA 

1440 

DATA 

1450 

DATA 

1460 

DATA 

1470 

DATA 

1480 

DATA 

1490 

DATA 

1500 

DATA 

1510 

DATA 

1520 

DATA 

1530 

DATA 

1540 

DATA 

1550 

DATA 

1560 

DATA 

1570 

DATA 

1580 

DATA 

1590 

DATA 

1600 

DATA 

1610 

DATA 

1620 

DATA 

1630 

DATA 

1640 

DATA 

1650 

DATA 

1660 

DATA 

1670 

DATA 

1680 

DATA 

1690 

DATA 

1700 

DATA 

1710 

DATA 

1720 

DATA 

1730 

DATA 

1740 

DATA 

1750 

DATA 

1760 

DATA 

1770 

DATA 

1780 

DATA 

1790 

DATA 

1800 

DATA 

1810 

DATA 

1820 

DATA 

1830 

DATA 

1840 

DATA 

1850 

DATA 

1860 

DATA 

1870 

DATA 

1880 

DATA 

1890 

DATA 

1900 

DATA 

1910 

DATA 

1920 

DATA 

1930 

DATA 

1940 

DATA 

1950 

DATA 

1960 

DATA 

1970 

DATA 


6A,DO,05,A9,FF,8D,08,8F,103 
C9, 6B, DO,05,A9,Ol,8D,09,841 
8F,C?,6C,DO,05,A9,FF,8D,1230 
09,8F,18,AD,00,8F,6D,08,609 
8F,8D,00,8F,18,AD,01,8F,768 
6D, 09, 8Ï- , 8D, 01,8F, EA, AD, 953 
00,8F,18,6D,04,8F,8D,00,564 
8F,18,AD,01,8F,6D,05,8F,741 
8D,01,8F,20,7F,92,B1,00,767 
C9,20,DO,03,4C,5F,92,C9,962 
2B,DO,43,18,AO,03,20,7D,662 
91,88, DO,FA,38,AD,20,8F,1143 
E9,01,8D,20,8F,AD,21,8F,899 
E9,00,8D,21,BF,DO,OB,AD,942 
20,8F,DO,06,A9,02,8D,E1,926 
BF,60,4C,5F,92,A2,05,BD,960 
96,BE,18,69,01,9D,96,BE,967 
C9, 3A, FO, 01,60, A9,30,9D, 970 
96,BE,CA,4C,7F,91,AC,07,1069 
8F,FO,1E,48,18,AD,02,8F,827 
6D,04,8F,8D,00,8F,18,AD,737 
03,8F,6D,05,8F,8D,01,8F,688 
A9,00, 8D,07,8F,68,4C,43,707 
91,C9,66,DO,12,A9,69,8D,1089 
06,8F,A9,00,8D,04,8F,A9,775 
FF,8D,05,8F,4C,OE,92,C9,981 
67,DO,12,A9,6C,8D,06,8F,896 
A9,FF,8D,04,8F,A9,00,8D,1022 
05,8F,4C,OE,92,C9,65,DO,894 
12, A9, 6A,8D,06,8F,A9,OO,752 
8D,04,8F,A9,01,8D,05,8F,747 
4C,OE,92,C9,68,DO,26,A9,956 
6B,8D,06,8F,A9,01,8D,04,712 
8F,A9,00,8D,05,8F,AD,02,776 
8F,18,6D,04,8F,8D,00,8F,707 
18,AD,03,8F,6D,05,8F,8D,741 
O1,8F,4C,5F,92,C9,6F,DO,981 
12, 18, AD, 01,8F,69,01,8D,606 
01,8F,4C,5F,92,A9,01,8D,772 
El,BF,60,C9,69,FO,F6,C9,1505 
6A,F0,F2,C9,6B,F0,EE,C9,1575 
6C,FO,EA,38,AD,00,8F,ED,1191 
08,8F,8D,00,8F,38,AD,01,665 
8F,ED,09,8F,8D,01,8F,20,849 
7F,92,AD,06,8F,91,00,A9,909 
20,91,02,AD,00,8F,8D,02,638 
8F,AD,01,8F,8D,03,8F,A9,916 
00,8D,07,8F,4C,Al,92,A9,843 
A8, 18, 6D,00,BF,85,00,A9,746 
BB,69,00,85,01,AC,01,8F,742 
18,A5,00, 69,28,85,00,A5,632 
01,69,00,85,01,88,DO,FO,824 
60,AD,10,8F,8D,12,8F,AD,903 
11,8F,8D,13,8F,20,B4,94,823 
A5,04,85,06,A5,05,85,07,618 
AO,38,20,10,95,FO,4B,A9,897 
01,8D,17,8F,A9,00,8D,18,642 
8F,8D,19,8F,AD,16,8F,C9,991 
69,DO,05,A9,01,8D,18,8F,796 
C9,6A,DO,05,A9,FF,8D,18,1109 
8F,C9,6B,DO,05,A9,01,8D,975 
19,8F,C9,6C,DO,05,A9,FF,1114 
BD,19,8F,18,AD,10,8F,6D,774 
1B,8F,8D,10,8F,18,AD,11,681 
8F,6D,19,8F,8D,11,BF,4C,797 
59,93,AO,37,20,10,95,FO,888 



1980 

DATA 

1990 

DATA 

2000 

DATA 

2010 

DATA 

2020 

DATA 

2030 

DATA 

2040 

DATA 

2050 

DATA 

2060 

DATA 

2070 

DATA 

2080 

DATA 

2090 

DATA 

2100 

DATA 

2110 

DATA 

2120 

DATA 

2130 

DATA 

2140 

DATA 

2150 

DATA 

2160 

DATA 

2170 

DATA 

2180 

DATA 

2190 

DATA 

2200 

DATA 

2210 

DATA 

2220 

DATA 

2230 

DATA 

2240 

DATA 

2250 

DATA 

2260 

DATA 

2270 

DATA 

2280 

DATA 

2290 

DATA 

2300 

DATA 


49,A9,01,BD,17,BF,A9,00,719 
8D, 18,8F,BD,19,8F,AD,16,812 
8F,C9,69,DO,05,A9,FF,8D,1227 
18,8F,C9,6A,DO,05,A9,01,857 
8D,18,8F,C9,6B,DO,05,A9,998 
FF,8D,19,8F,C9,6C,DO,05,1086 
A9,01,8D,19,8F,18,AD,10,692 
8F,6D,18,8F,8D,10,8F,18,743 
AD,11,BF,6D,19,8F,3D,11,768 
8F,EA,AD,10,8F,18,6D,14,862 
8F,BD,10,8F,18,AD,11,8F,800 
6D, 15, 8F, 8D,11,8F,20,B4,786 
94,B1,04,C9,20,DO,03,4C,849 
8A,94,C9,2B,DO,43,18,AO,989 
03,20,A8,93,88,DO,FA,38,1000 
AD,20,BF,E9,01,8D,20,8F,898 
AD,21,8F,E9,OO,8D,21,8F,899 
DO, OB, AD,20,8F,DO,06,A9,950 
02,8D,E1,BF,60,4C,8A,94,1017 
A2,05,BD,5E,BF,18,69,01,771 
9D,5E,BF,C9,3A,F0,01,60,1038 
A9,30,9D,5E,BF,CA,4C,AA,1107 
93,AC,17,8F,FO,1E,48,18,851 
AD,12,8F,6D,14,BF,8D,10,763 
8F,18,AD,13,8F,6D,15,8F,775 
8D,11,8F,A9,00,8D,17,8F,777 
68,4C,6E,93,C9,66,DO,12,966 
A9,6A,8D,16,8F,A9,00,8D,891 
14,8F,A9,01,8D,15,BF,4C,714 
39,94,C9,67,DO,12,A9,6B,1011 
8D,16,8F,A9,01,BD,14,BF,7B0 
A9,00, 8D, 15,8F, 4C, 39,94,755 
C9,65,DO,12,A9,69,8D,16,965 


2310 

DATA 

2320 

DATA 

2330 

DATA 

2340 

DATA 

2350 

DATA 

2360 

DATA 

2370 

DATA 

2380 

DATA 

239Q 

DATA 

2400 

DATA 

2410 

DATA 

2420 

DATA 

2430 

DATA 

2440 

DATA 

2450 

DATA 

2460 

DATA 

2470 

DATA 

2480 

DATA 

2490 

DATA 

2500 

DATA 

2510 

DATA 

2520 

DATA 

2530 

DATA 

2540 

DATA 

2550 

DATA 

2560 

DATA 

2570 

DATA 

2580 

DATA 

2590 

DATA 

2600 

DATA 

2610 

DATA 

2620 

DATA 


8F,A9,00,8D,14,8F,A9,FF,1040 
8D,15,8F,4C,39,94,C9,68,891 
DO,26,A9,6C,8D,16,8F,A9,998 
FF,8D,14,8F,A9,00,8D,15,890 
8F,AD,12,8F,18,6D,14,8F,773 
8D,10,8F,18,AD,13,8F,6D,768 
15,8F,8D,11,8F,4C,8A,94,827 
C9,6E,DO,12,18,AD,11,8F,894 
69,01, BD,11,8F,4C,BA,94,769 
A9,O1,8D,E1,BF,60,C9,69,1129 
F0,F6,C9,6A,F0,F2,C9,6B,1583 
FO,EE,C9,6C,FO,EA,38,AD,1490 
10,8F,ED,18,8F,8D,10,8F,863 
38, AD, 11,8F,ED,19,8F,8D,935 
11,8F,20,B4,94,AD,16,8F,858 
91,04,A9,20,91,06,AD,10,690 
8F,8D, 12,8F,AD,11,8F,8D,919 
13,8F,A9,00,BD,17,8F,AO,798 
46,A2,FF,CA,DO,FD,88,DO,1494 
F8,4C,D8,94,A9,A8,18,6D,1158 
10,8F,85,04,A9,BB,69,00,757 
85,05,AC,11,8F,18,A5,04,663 
69,28,85,04,A5,05,69,00,557 
85,05,88,DO,FO,60,60,55,999 
A9,A8,8D,E7,94,A9,BB,8D,1354 
E8,94,A2,20,AO,19,B9,A8,1112 
BB,C9,2B,DO,06,4C,76,90,983 
El,BF,60,88,FO,03,4C,E6,1197 
94,18,AD,E7,94,69,28,8D,1OÎO 
E7,94,AD,E8,94,69,00,BD,1178 
E8,94,CA,FO,03,4C,E4,94,1277 
A9,02,8D,El,BF,60,55,55,994 


1 HIMEM#8000:TEXT 

2 D0KE#306,10000 

990 IF PEEK(#9600)=32 THEN 1330 
1000 REM 

1010 REM IMPLANTATION DE LA ROUTINE 

1020 REM MULTITOUCHE 

1030 REM 
1035 S=0:M=0 

1040 LG=1100:FOR L=10 TO 9 STEP -1:K= 
O:FOR 1=0 TO L:FOR J=1 TO 6 
1050 READ DT:P0KE#9600+K+M,DT:S=S+DT: 


K=K+1:NEXT:READ SC 
1060 IF SOSC THEN PR INT "ERREUR ! ! 

IGNE "; LG;" A VERIFIER." 

1070 LG=LG+10:S=0:NEXT 
1080 IF L=10 THEN M=#50:NEXT 
1100 DATA #20,#22,#D9,#A5,#34,#D0, 
1110 DATA #06,#C0,#3A,#B0,#02,#90, 
1120 DATA #03,#4C,#36,#D3,#B9,#50, 
1130 DATA #96,#48,#29,#07,#A8,#68, 
1140 DATA #4A,#4A,#4A,#AA,#A9,#FE, 
1150 DATA #38,#D0,#01,#2A,#CA,#10, 
1160 DATA #FC,#AA,#98,#48,#A9,#0E, 
1170 DATA #20,#90,#F5,#68,#09,#B8, 
1180 DATA #8D,#00,#03,#A0,#00,#AD, 
1190 DATA #00,#03,#29,#08,#F0,#02, 
1200 DATA #A0,#01,#4C,#B6,#D4,#00, 
1210 DATA #28,#32,#38,#1A,#10,#0A, 
1220 DATA #00,#07,#0B,#17,#IB,#3F, 
1230 DATA #33,#29,#31,#3E,#1E,#11, 
1240 DATA #09,#06,#05,#0D,#15,#1D, 
1250 DATA #3D,#35,#2D,#22,#2E,#36, 


! L 


708 

578 

609 

542 

815 

525 

829 

718 

477 

294 

631 

198 

131 

250 

83 

293 


1260 DATA #39,#19,#16,#0E,#01,#03,122 
1270 DATA #0F,#13,#3B,#2F,#24,#2A,218 
1280 DATA #30,#3A,#18,#12,#08,#02,158 
1290 DATA #0C,#14,#1F,#27,#2C,#34,198 
1300 DATA #04,#1C,#3C,#25,#00,#00,129 
1310 IF PEEK <#FFF9) 0196 THEN 1330 
1320 DDKET#9601, #D867: D0KE#960E, #D2A0: 

D0KE#962B,#F535:DOKE#963F,#D3FD 
1330 P0KE#963E,96:D0KE#9090,#9610:DOK 

E#90E2,#9610:DQKE#92BB,#9610 


1335 

D0KE#930D,#9610 


1340 

CLS 



1350 

GQSUB 60000 


1390 

GOTO 

1790 


1400 

REM 



1410 

REM REDEFINITIONS DES CARACTERES 

1420 

REM 



1425 

DOKE 

#B0,2+DEEK(#E9):RETURN 

1430 

DATA 

0,0,31,16,23,20,20,20 


1440 

DATA 

0,0,62,2,58,10,10,10 


1450 

DATA 

20,20,20,23,16,31,0,0 


1460 

DATA 

10,10,10,58,2,62,0,0 


1470 

DATA 

20,20,20,20,20,20,20, 

20 

1480 

DATA 

10,10,10,10,10,10,10, 

10 

1490 

DATA 

0,0,63,0,63,0,0,0 


1500 

DATA 

0,0,0,63,0,63,0,0 


1510 

DATA 

12,30,12,12,12,63,63, 

12 

1520 

DATA 

12,63,63,12,12,12,30, 

12 

1530 

DATA 

0,24,26,63,63,26,24,0 


1540 

DATA 

0,6,22,63,63,22,6,0 


1550 

DATA 

0,0,32,16,8,36,20,20 


1560 

DATA 

18,09,4,2,1,0,0,0 
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1570 

DATA 

18,36,8,16,32,0,0,0 


1580 

DATA 

0,0,1,2,4,9,10,10 


1590 

DATA 

28,20,20,20,20,20,20, 

20 

1600 

DATA 

20,20,20,20,20,20,20, 

28 

1610 

DATA 

14, ÎO, 10,10,10,10,10, 

10 

1620 

DATA 

10, 10,10,10,10,10,10, 

14 

1630 

DATA 

0,0,63,1,63,0,0,0 


1640 

DATA 

0,0,63,32,63,0,0,0 


1650 

DATA 

0,0,0,63,1,63,0,0 


1660 

DATA 

0,0,0,63,32,63,0,0 


1790 

GOSUB 1425 


1800 

FOR 1 

=39688 TO 39879 


1810 

READ 

D:POKEI,D 


1820 

NEXT 



1830 

A=46424:DOKEA,0:POKEA+2,8: 

POKEA+ 


3,28:PQKEA+4,8:DOKEA+5,O:POKEA+7,O 
2000 REM 

2010 REM COMPATIBILITE 01/AT 
2020 REM 

2030 IF PEEK(#FFF9)<>1 THEN DD=-1 
3000 GOTO 3100 
3010 M*=C*+M* 

3020 FOR 1=38 TO 2 STEP -1 
3025 PLOT I-l+DD,Y,"1" 

3030 PLOT I+DD,Y,LEFT*(M$,39—1) 

3040 M*=M*+" H 
3050 NEXT 

3055 PLOT 1+DD,Y," " 

3056 Y=Y+1 
3060 RETURN 

3070 M*=" PRESSEZ LA TOUCHE W":Y 

=23:GOSUB 3010:GETR*:IF R®="W"THENRETU 
RN 

3080 M*="ON VOUS A DIT W ET VOUS TAPE 
Z ":Y=25:GOSUB 3010 
3085 M®="AILLEURS. CA COMMENCE BIEN 

! ! !":GOSUB 3010:WAIT 300:RETURN 
3100 TEXT:PAPERO:INK7:CLS:P0KE618,10 
3105 C®=CHR®(2> 


3110 M®=" THE CAR WAR":Y=2: 

GOSUB 3010 

3120 M*=" ===========":Y=3: 

GOSUB 3010 

3130 M®=" AUTEUR: ERIC VIEL":Y 


=5:GOSUB 3010 
3140 C»=CHR*<4):Y=8 

3150 M*=" LES MOTEURS TOURNAIENT, L 
E BRUIT EN”:GOSUB 3010 
3160 M*="ETAIT ASSOURDISSANT. UN DERN 
IER COUP" 

3165 GOSUB 3010 

3170 M*="D'OEIL SUR LE FEU." 

3175 GOSUB 3010 
3180 M*="VERT." 

3185 GOSUB 3010 

3190 M*="D'UN SEUL COUP, LE BOLIDE PA 
RT IT EN 

3195 GOSUB 3010 

3200 M®="AVANT. IL FALLAIT ARRIVER AU 
CROISE-" 

3205 GOSUB 3010 

3210 M®="MENT AVANT L'AUTRE-" 

3215 GOSUB 3010 

3220 M*="L'AUTRE, C'EST VOUS. ET VOUS 
DEVEZ" 

3225 GOSUB 3010 


3230 M®="FAIRE DE MEME. POUR GAGNER C 
ETTE" 

3235 GOSUB 3010 

3240 M*="LUTTE, VOICI QUELQUES CONSEI 
LS ..." 

3245 GOSUB 3010 
3250 GOSUB 3070 

3260 CLS:Y=1:M*=" THE CAR WAR 

“:GOSuB 3010: C*=CHR$ (5) :Y=5 
3270 M®="LE BUT DU JEU EST DE FAIRE L 
E " 

3275 GOSUB 3010 

3280 M*="MAXIMUM DE POINTS. (ETONANT, 
NON ?)" 

3285 GOSUB 3010 

3290 M®="POUR CELA CHAQUE JOUEUR POSS 
EDE 3" 

3295 GOSUB 3010 

3300 M*="VOITURES. LE JOUEUR 1 DEMARR 
E A" 

3305 GOSUB 3010 

3310 M*="GAUCHE ET LE JOUEUR 2 DEMARR 
E A" 

3315 GOSUB 3010 

3320 M®="DROITE. LE JOUEUR 1 CONTROLE 
SON " 

3325 GOSUB 3010 

3330 M*="VEHICULE A L AIDE DES TOUCHE 
S " 

3335 GOSUB 3010 

3340 M*="FLECHE GAUCHE POUR ALLER VER 
S" 

3345 GOSUB 3010 

3350 M*="L'INTERIEUR ET FLECHE BAS PO 
UR ALLER" 

3355 GOSUB 3010 

3360 M®="VERS L'EXTERIEUR." 

3365 GOSUB 3010 

3370 M*="LE JOUEUR 2 DISPOSE DE LA FL 
ECHE " 

3375 GOSUB 3010 

3380 M®="HAUT POUR ALLER A L'EXTERIEU 
R ET" 

3385 GOSUB 3010 

3390 M*="DE LA FLECHE DROITE POUR ALL 
ER A" 

3395 GOSUB 3010 

3400 M*="L*INTERIEUR DU CIRCUIT." 

3405 GOSUB 3010 
3410 GOSUB 3070 

3420 CLS:Y=1:M®=" THE CAR WA 

R":GOSUB 3010 
3430 C*=CHR®(2> 

3440 Y=6 

3450 Mt="LORSQUE LES DEUX JOUEURS SE 
3455 GOSUB 3010 

3460 M*="RENCONTRENT, ILS NE PEUVENT 
PAS SE" 

3465 GOSUB 3010 

3470 M®="RACONTER DES HISTOIRES DE JO 
UEURS," 

3475 GOSUB 3010 

3480 M®="VU QU'ILS VIENNENT DE SE TUE 
R ’• ! ! " 

3485 GOSUB 3010 
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3490 M*="ILS NONT PAS SEPT VIES COMM 
E LES" 

3495 GOSUE) 3010 

3500 M*="CHATS, MAIS TROIS. ALORS, GA 
FFE ! ! !" 

3505 GOSUB 3010 
3510 M*=" " 

3515 GOSUB 3010 

3520 M* ="REMARQUES, TOUS LES TROIS TA 
BLEAUX" 

3525 GOSUB 3010 

3530 M*="ILS GAGNENT UNE VOITURE, MAX 
IMUM " 

3535 GOSUB 3010 

3340 n*=“TRO!S VOITURES SIMULTANEMENT 
, ALORS" 

3545 GOSUB 3010 

3550 M* = “ILS PEUVENT PEUT ETRE EN AVO 
IR SEPT" 

3555 GOSUB 3010 

3560 M*="ENCORE QUE L'AUTEUR AIT PENS 
E A" 

3565 GOSUB 3010 

3570 M*="AUGMENTER LA DIFFICULTE A CH 
AQUE" 

3575 GOSUB 3010 

3580 M*="TABLEAU, ALORS, -" 

3585 GOSUB 3010 
3590 M*=" " 

3595 GOSUB 3010 

3600 M*=" ALORS, A VOUS DE JOU 

ER ! ! !" 

3605 GOSUB 3010 
3610 GOSUB 3070 
5000 REM 
8990 MS=500 
9000 REM 

9010 REM INITIALISATIONS 

9020 REM 

9040 E*=CHR*<27> 

9050 D*=CHR*<4) 

9100 NC=3 

9110 S1*="00000":S2*=S1* 

9120 P0KE#94A8,80 
10000 
10010 
10020 
10025 
10030 
11000 
11010 
99t>" 

11020 
++F " 

11030 
++F " 

11040 
b+F" 

11050 
F+f " 

11060 
F + F " 

11070 
F + F" 

11080 
F + F" 


DESSIN DU TERRAIN 


REM 
REM 
REM 

PAPER 4:INK6 
CLS:POKE 618,10 
PR INT 

PRINT"agggggm 


pgggmpgggggggg 
+++ 


PRINT" 

PRINT"e+aggggggggggggggu++++vgg 

PRINT"e+e++++++++++++++++++++++ 

PRINT"e+e+aggggggu++++vggggggb+ 

PRINT"e+e+e++++++++++++++++++F+ 

PRINT"e+e+e+aggggu++++vggggb+F+ 


F + F + 


11090 PRINT" 

F + F" 

11ÎOO PRINT"e+r+r+e+aggggggggggb+F+t+ 
t + F" 

11110 PRINT"e+++++r+e F+t+++ 

++F" 

11111 PRINT"e+++++++e F+++++ 

++F" 

11130 PRINT"e+++++++e F+++++ 

++-f ” 

11140 PRINT"e+++++g+e T+S+++ 

++-f “ 

11160 PRINT"e+g+g+e+chhhhhhhhhhd+T-t-s+ 
s+T" 

11170 PRlNT"e+e+e+e++++++++++++++-f + F+ 
■f + f " 

11180 PRINT"e+e+e+chhhhw++++xhhhhd+T+ 
■f+ -f " 

1 1 190 PRINT"e+e+e++-*-+++++++++++++-*-+T + 
f + F“ 

11200 PR INT "e+e+chhhhhhw-*-xhhhhlihd-*- 
i + T" 

■f+ -f " 

11220 PRINT"e+chhhhhhhhw++++xhhhhhhhh 
d + f " 

11230 PRINT"e+++++++++++++-*~*-+-*-+ ++ -*- +++ 
++T" 

11240 PRINT"chhhhhhhhhhhhhhhhhhhhhhhh 
hhd" 

11250 PRINT "e r r r F e t t 

t F" 

11260 PRINT "e F e 

F" 

11270 PRINT "chhhhhhhd chhhh 

hhhd";CHR*(30) 

12000 PLOT 31+DD,16,"JOUEUR 1" 

12010 PLOT 31+DD,21,"JOUEUR 2" 

12020 PLOT 31+DD,18,SI* 

12030 PLOT 31+DD,23,S2* 

12040 PLOT 31+DD,11,“HI-SCORE" 

12050 PLOT 31+DD,13,MID*(STR*(MS),2) 
12060 PLOT 31+DD,3,"THE" 

12070 PLOT 31+DD,5," CAR" 

12080 PLOT 31+DD,7," WAR" 

12090 PLOT 31+DD,9,"=========" 

12095 GOTO 12500 
12100 REM 

12110 REM SORTIE DU GARAGE 
12120 REM 
12125 TP=65 

12130 P1=3+NC*2:P2=28—NC*2 

12140 PLOT Pl+DD,24," ": PLOT P2+DD,24 


12150 PLOT Pl+DD, 25, "j":PLOT F'2+DD,25 
" 3 " 

12155 WAIT TP 

12160 PLOT Pl+DD,25,"1": PLOT P2+DD.25 
"k" 

12165 WAI T TP 

12170 FOR 1=1 TO NC*2 

12180 PLOT Pl+DD,25," ":PLOT P2+DD,25 


12190 P1=P1-1:P2=P2+1 

12200 PLOT Pl+DD,25,"1": PLOT P2+DD,25 
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12210 WAIT TP:NEXT 
12220 PLOT Pl+DD,25,* 
' i " : WAIT TP 
12230 PLOT Pl+DD,25, 1 

Il II 

12240 PLOT Pl+DD,24,' 
' i " :WAIT TP 
12250 PLOT Pl+DD,23,’ 
• ":WAIT TP 
12260 PLOT Pl+DD,24, 1 

I II 

12270 PLOT Pl+DD,23,' 

'i":WAIT TP 

12280 PLOT Pl+DD,23,' 


12290 PLOT Pl+DD, 22,' 

‘ i":WAIT TP 
12300 PLOT Pl+DD,23,' 

'h" : WAIT TP 
12310 PLOT Pl+DD,22," 

' 1 “ : WAIT TP 
12490 RETURN 

12500 PLOT 13+DD,25,"GARAGE" 

12510 Pl=5:P2=26:FOR 1=1 TO NC 
12520 PLOT Pl+DD,24,"j": PLOT P2+DD,24 
,"j":Pl=Pl+2:P2=P2-2:NEXT 
13315 PRINT 
15000 REM 
15010 REM JEU 


i": PLOT P2+DD,25 
": PLOT P2+DD,25 
i": PLOT P2+DD,24 
":PLOT P2+DD,23 
": PLOT P2+DD,24 
i": PLOT P2+DD,23 
":PLOT P2+DD,23 
i": PLOT P2+DD,22 
h":PLOT P2+DD,23 
k": PLOT P2+DD,22 


15020 REM 

15030 GOSUB 12100 

15035 PLOT 12+DD,11," 

15037 PLOT 12+DD,13," 

15040 PLOT 12+DD,11,"PRETS ?" 

15050 PLOT 14+DD,13,17:PL0T15+DD,13,2 
O 

15060 PLAY 1,O,0,0:MUS IC 1,2,2, 10:WAI 
T 40:PLAY O,O,0,0 
15065 WAIT OlOO 
15070 PLOT 12+DD,11,"PARTEZ!" 

15080 PLOT 14+DD,13,18:PLOT15+DD,13,2 
O 

15090 MUSIC 1,2,11,10:PLAY 1,0,0,0:WA 
IT 40:PLAY 0,0,O,O 
15100 PLOT 12+DD,11,"(C) ERIC" 

15110 PLOT 12+DD,13," VIEL " 

15120 D0KE48F20,599:CALL#9038 

15121 S1*="":S2*="": F OR 1=31 TO 35:S1 
*=S1*+CHR*(SCRN(I+DD,18)) 

15122 S2*=S2*+CHR*(SCRN(I+DD,23)):NEX 
T 

15130 IF PEEK(#BFE1)=2 THEN 16000 
15140 EXPLODE:WAIT 32:EXPL0DE 
15150 POKE DEEK(02),32:POKE DEEK(06), 
32 

15160 POKE DEEK (OO),32:POKE DEEK(04), 
32 

15170 NC=NC-1 : IF NOO THEN 15000 

15180 CLS:PAPER4 

15185 PRINT:A*=KEY*:A*=KEY* 

15190 PRINT" "D*E*"J"E*"C CHAUFFAR 
DS ! ! ! " 

15200 PRINTD* 

15210 PRINT:PRINT:PRINT" VOUS VENEZ 
DE BOUSILLER A VOUS DEUX" 

15220 PRINT"UN BON NOMBRE DE VEHICULE 
S DE Fl." 


15230 PRINT"HEUREUSEMENT POUR VOUS, I 
LS ETAIENT" 

15240 PRINT"EQUIPES DE MOTEURS FRANCA 
IS. LE " 

15250 PRINT"PRESIDENT DE LA REPUBLIQU 
E VOUS FAIT" 

15260 PRINT"GRACE DE LA FACTURE (CELA 
FAIT MARCHER"; 

15270 PRINT"L'INDUSTRIE, C'EST BON .. 
. ) " 

15280 PRINT:PRINT" VOUS GARDEZ DONC 
LE BENEFICE DE " 

15290 PRINT"VOS POINTS, A SAVOIR _" 

15300 PRINT:PRINT” JOUEUR 1 . 

... "SI* 

15310 PRINT" JOUEUR 2. "S 

2* 

15320 IF S1*>S2* THEN SC=VAL(Sl*>:M*= 
"1" ELSE SC=VAL(S2*):M*="2" 

15330 IF SC<MS THEN 15380 
15340 PRINT:PRINT:PRINT"VU LE HAUT SC 
ORE DU JOUEUR "M*"," 

15350 PRINT"LE PRESIDENT LUI REMETTRA 
LA CROIX DU" 

15360 PRINT"BRI Z' FAIR .":MS=SC 
15370 GOTO 15430 

15380 PRINT"DE PLUS, VOUS N'AVEZ PAS 
BATTU LE " 

15390 PRINT"RECORD. LE PRESIDENT NE 
VOUS FAIT" 

15400 PRINT-PAS DE COMPLIMENTS. (NOTE 
DU" 

15410 PRINT"PROGRAMMEUR : C'EST PAS C 
OMME CA QU'IL"; 

15420 PRINT-VA SE FAIRE REELIRE ...)" 
15430 PLOT DD+10,25,"PRESSEZ UNE TOUC 
HE“:GETR* 

15450 GOTO 9000 
16000 REM 

16010 REM TABLEAU PASSE 
16020 REM 
16025 TB=TB+1 

16030 FOR 1=1 TO 53:PRINT :NEXT 

16040 PRINT" "E*"L FELICITATI 

ONS" 

16050 PRINT:PRINT:PRINT:PRINT:PRINT:P 
RINT"NOMBRE DE TABLEAUX PASSES: "TB 
16060 PRINT:PRINT:PRINT:PRINT:PRINT" 
"E*"L SCORES" 

16070 PRINT: PRINT: PRINT:F RINT: PRINT”J 

OUEUR 1 . "SI* 

16080 PRINT:PRINT "JOUEUR 2 - 

. "S2* 

16090 PRINT: PRINT: PRINT: PRINT"PET I TE 

PAUSE_" 

16100 WAIT 150 
16110 PLOT 2+DD,25," 

II 

16120 IF NC = 3 THEN 16200 
16130 IF INT (TB/3) OTB/3 THEN 16200 
16140 PR I NT : PR INT : PR INT : PR INT : PR I NT "V 
OUS GAGNEZ UNE VOITURE CHACUN ..." 
16145 NC=NC+1 

16150 PRINT:PRINT:PRINT:PRINT:PR INT 
16160 WAIT 100 
16200 REM 

16210 A=PEEK(#94A8):A=A—5: IF A<10 THE 
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N A= 10 

16220 POKE #94A8,A 
16230 GOTO ÎOOOO 
60000 PAPER 1:INK3 
60010 HIRES :POKE 618,10 
60020 CURSET 20,50,3 
60030 N=4: FOR J=1 TO 6 
60040 FOR 1=1 TO N 

60050 CHAR 127,O,1 :CURMOV 12,0,3:NEXT 
60060 N=N+0.5 

60070 CURSET 20-6*<INT(J/2)=J/2>,50+< 
J-l >*8,3:NEXT 

60080 CURSET 74,58,3:CHAR 127,0,0 
60090 CURSET 86,74,3:CHAR 127,0,0 
60100 FOR 1=1 TO 6 

60110 CURSET 56+1,50,1:DRAW 66,88,1 
60120 NEXT 

60130 CURSET 220,50,3 
60140 N=4:FOR J=1 TO 6 
60150 FOR 1=1 TO N 

60160 CHAR 127,0,1:CURMOV -12,0,3:NEX 


T 

60170 N=N+0.5 

60180 CURSET 240-(20-6*(INT(J/2)=J/2> 
),50+(J-l)*8,3:NEXT 
60190 CURSET 166,58,3:CHAR 127,0,0 
60200 CURSET 154,74,3:CHAR 127,0,0 
60210 FOR 1=6 TO 1 STEP-1 
60220 CURSET 183+1,50,1 : DRAW -66,88,1 
60230 NEXT 
60240 : 


60250 : 

60260 CURSET 93,50,3: 
GOSUB 60720 
60270 CURSET 93,62,3: 
GOSUB 60720 
60280 CURSET 10,150,1 
60290 CURSET 18,150,1 
60300 CURSET 30,150,1 
60310 CURSET 46,150,1 
60320 CURSET 46,160,1 
60330 CURSET 66,150,1 
AW 0,20,1 : DRAW 16,0,1 
60340 CURSET 50,160,1 
60350 CURSET 102,150, 
RAW 0,20,1:DRAW 16,0,1 
60360 CURSET 106,170, 
RAW 16,0,1 : DRAW 0,20,1 
60370 CURSET 106,160, 
60380 CURSET 126,170, 
RAW 16,0,1 : DRAW 0,10,1 
60390 DRAW 6,0,1:DRAW 


M*="ERIC VIEL": 

M*=" PRESENTE ": 

: DRAW 16,0,1 
: DRAW 0,20,1 
: DRAW O,20,1 
: DRAW 0,20,1 
: DRAW -16,0,1 
: DRAW -16,0,1 : DR 

: DRAW 8,0,1 
1: DRAW -16,0,1:D 

1 : DRAW 0,-20,1:D 

1 : DRAW 16,0,1 
1 : DRAW 0,-20,1:D 
: DRAW -16,0,1 
10 , 10,1 


60400 CURSET 166,150,1 : DRAW O,20,1:DR 
AW 10,-7,1:DRAW 10,7,1:DRAW 0,-20,1 
60410 CURSET 190,170,1 : DRAW 0,-20,1:D 
RAW 16,0,1:DRAW 0,20,1 
60420 CURSET 190,160,1 : DRAW 16,0,1 
60430 CURSET 210,170,1 : DRAW 0,-20,1:D 
RAW 16,0,1: DRAW 0,10,1:DRAW -16,0,1 
60440 DRAW 6,0,1:DRAW 10,10,1 
60450 : 

60460 GOTO 60545 

60465 DOKE#BO,2+DEEK(#E9):RETURN 
60470 DATA #A2,#C3,#A0,#28,#B9,#28,#A 
O 


60480 DATA 
60490 DATA 
D,#05,#80 
60500 DATA 
6, #80 

60510 DATA 
D,#08,#80 
60520 DATA 
9, #80 

60530 DATA 
O 


#99,#00,#A0,#88,#DO,#F7 
#18,#AD,#05,#80,#69,#28,#8 

#AD,#06,#80,#69,#00,#8D,#0 

#18,#AD,#08,#80,#69,#28,#8 

#AD,#09,#80,#69,#00,#8D,#0 

#CA,#F0,#03,#4C,#02,#80,#6 


60540 DATA 999 

60545 GOSUB 60465 

60550 A=#8000:READ D 

60560 REPEAT:POKE A,D:A=A+1:READD 

60570 UNTIL D=999 

60580 FOR 1=1 TO 14û:D0KE #8005,#A028 
:D0KE#8OO8,#A000:CALL#80C0:NEXT 
60590 CURSET 50,150,3:CIRCLE 10,1 
60600 CURSET 170,145,3:CIRCLE 15,1 
60610 CURSET 200,143,1 : DRAW -14,2,1 
60620 CURSET 154, 145, 1 : DRAW -93,5,1 
60630 CURSET 40,150,1: DRAW -20,2,1 
60640 DRAW 40,-20,1 : DRAW 140,-15,1 
60650 DRAW O,15,1:DRAW 5,0,1:DRAW 0,3 
,1 :DRAW-5,0,1 : DRAW 0,7,1 
60660 CURSET 103,127,1 : DRAW 7,-5,1:DR 
AW 22,-6,1:DRAW 2,8,1 
60670 CURSET 180,119,1 : DRAW 0,-10, 1:D 
RAW -20,2,1:DRAW 0,9,1:DRAW O,-9,1 
60680 DRAW -15,2,1:DRAW 3,-5,1:DRAW 5 
O,-5,1 : DRAW -3,+5,1 
60690 DRAW -15,1,1 

60700 CURSET 097,130,3:M*="Eric Viel" 
60710 GOSUB 60720:PRINT:PRINT"VEUILLE 
Z PATIENTER QUELQUES INSTANTS..":RETUR 
N 


60720 FOR C=1 TO LEN(M*):CHARASC(MID* 
(M*.C. 1))-O.1 :CURMOV 6,O,3:NEXT:RETURN 


N ouveau \ 

Abonnement 
disquettes JASMIN 

Les disquettes de THEORIC ont du 
succès. En conséquence,' leur prix 


baisse et passe à 116 F pour les 
abonnés à la revue et 146 F pour 
les non-abonnés. 

Pour vous faire économiser davan¬ 
tage, nous proposons, l’abonne¬ 
ment aux disquettes. Pour 6 
disquettes, vous ne- payerez que 
606 F. Cet abonnement est totale¬ 


ment indépendant de l’abonne¬ 
ment à la revue. L’économie réa¬ 
lisée est loin d’être négligeable ! 
N’oubliez pas, ces disquettes peu¬ 
vent être transférées sous SEDO- 
RIC par l’utilitaire CONVERT... pour 
peu que votre SEDORIC soit à 
jour ! 
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MONITEUR 
POUR TELESTRAT 

Marcel SPELLER 

L es premiers programmes pour TELESTRAT commencent 
à arriver à la rédaction. Nous avons choisi de publier ce 
moniteur car il devrait permettre à tous ceux qui veulent 
travailler en langage machine sur cet ordinateur, d'avancer un 
peu plus vite. 



Quatre options sont disponibles, 
ainsi qu'un retour au basic. 

1°) DUMP mémoire 

2°) Désassemblage 

3°) Insertion d'octets 

4°) Entrée de texte 

Pour les deux premières options, 

les possibilités sont les suivantes : 

• Si on ne précise aucune adresse 
à la question "Jusqu'à quelle adres¬ 
se ?” alors le dump ou le désas¬ 
semblage se fait en continu. 

• Si on tape P à cette même ques¬ 
tion, alors le dump ou le désas¬ 
semblage se fait page par page, le 
passage à la page suivante se fai¬ 
sant en appuyant une touche autre 
que Return. 

La touche Return ramène au menu 
lors d'un arrêt du Scrolling. 

Pour l'insertion d'octets, quatre pos¬ 
sibilités sont offertes : avec ou 
sanschecksum. 

Si le choix porte sur l'un des 3 cal¬ 
culs de checksum offerts, la somme 
de contrôle s'affiche à l'écran, en 
rouge ; on poursuit la rentrée d'oc¬ 
tets en appuyant sur Return. 


Si une somme ne correspond pas, 
il faut alors rentrer la ligne complète, 
en appuyant d'abord sur ESC. 

Les sommes de contrôle s’affichent 
en hexa et en décimal. 

L'entrée de texte n'appelle aucun 
commentaire, si ce n'est que le 
texte peut être très long. 

Lors d'un dump ou d'un désassem¬ 
blage, le scrolling peut parfois s'ar¬ 
rêter ; il ne faut pas s'inquiéter car il 
reprend après ce temps d'arrêt ; 
pouvez-vous m'expliquer ce phé¬ 
nomène ? 


Quelques explications sur le 
programme 

•Lignes 100 à 190: lecture de la 
table ; ceci est un peu long mais 
READ, DATA ne sont pas des ins¬ 
tructions hyperbasic ; dommage !! 

• Lignes 320 et 2420 : R$ = 
UP$(R$) les lettres minuscules 
sont donc admises 

• La sous-routine DECIMAL com¬ 
ble le bug de l'instruction VAL. 


En effet, sur ATMOS, VAL("#A") 
retourne 10 

Sur TELESTRAT, VAL("#A") = 0 

• Ligne 650 (et d'autres) AJ = A + 
J : IF AJ > 65535 THEN AJ = A + J 
-65536. 

Cette syntaxe est plus rapide d'éxé- 
cution que : 

AJ = A + J - 65536 * (A + J > 
65535). -Un peu plus d'une se¬ 
conde gagnée sur l'édition d'une 
page en DUMP. 

A remarquer que sur TELESTRAT 
(A + J > 65535) = 1 si la condition 
est vraie (alors que c'est -1 sur 
ATMOS) 

• Ligne 3020 CH = CH 4 INT (16 | 
K) au lieu de CH = CH 4 (16 t K) car 
16 t K ne retourne pas toujours un 
nombre entier 

Ex : 1 6 t 3 retourne 4096,00001 

• Les attributs (couleur ou cligno¬ 
tement ou double hauteur etc...) 
apportés à l'aide de la touche 
FUNCT font un décalage à l'écran 
mais pas sur imprimantes ; cela ex¬ 
plique le fait que le DUMP avec sor¬ 
tie imprimante n'utilise pas les cou¬ 
leurs 

• La touche FUNCT + touche 
appropriée permet de faire des 
effets sur le listing et sur le 
programme (par exemple, les REM 
en jaune). 

•Utilisation de CUT, UNCOUNT 
bien plus rapide que FOR TO N EXT 

• Enfin, à propos du désassem- 
bleur, l'opérande est précédée de 
$ dans le cas d'un adressage immé¬ 
diat sinon il n'y a rien ; la lecture 
n'en est que plus claire... 


io ■ * ■*■***■* ■*•*** •»•*■* **•**■*■ •*■■*** 

20 ' * * 

30 ' * MONITEUR TELESTRAT # 

40 4 * * 

50 ' **■»****■*■»•*■»■»*****■***** 

60 * 

70 * Ecrit par marcel Speller 
80 * Décembre 1986 
90 * 

100 CLS:PRINT @4,6;"Lecture en cour 
s. Patience !":CURSOR OFF 
110 DIM TAB*(255> 

120 DIM DATA*(19) 

130 SEI:TABLE 

140 RES 

150 COUNT 151 

160 READ 

170 CO=VAL (MID*(DATA*, 3,3)) 

180 TAB*(CO)=DATA* 

190 UNCOUNT:CLI 


200 ATTR1*=CHR*(27)+"T"+CHR*(27)+"A 

"+CHR*(27)+ "L" 

210 ATTR2*=CHR*(27)+"J"+CHR*(27 > +"D 

II 

220 ATTR3*=CHR* (27) +" J"+CHR* <27>-*-"A 

II 

230 1MENU 

240 DOKE #BB9D,#1401 :PQKE #BB9F,"MO 
NITEUR" 

250 CLS:CURSOR SET 

260 TITRE*="M E N U":ENTETE 

270 FRINT @6,9;ATTR* 

280 PRINT @7,9;ATTR* 

290 PRINT @11,2;"DUMP MEMOIRE - 

-> TAPEZ D" 

300 PRINT 013,2;"DESASSEMBLAGE - 

-> TAPEZ L" 

310 PRINT ei5,2;"INSERTION D *OCTETS 

-> TAPEZ I" 
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1300 IF GR=0 THEN PRINI CtSFCt<9)"? 
?■?•• : A=A1 :GOIO SU I TE 

1310 IF GR=1 THEN FRINT C*SPCt(9)MN 
EMUt:A=A1: GOTO SUITE 

1320 IF GR=2 THEN FRIN 


•hi*spc 


I Ct 

$ (6) MNEMUf f H11 : A = A2: GO T O SUITE 

1330 IF GR=3 THEN FRINT Cf "HltSPC 
"H1 $:A=A2:GOTO SUITE 
GR=4 THEN PR INI CF' "HltSPC 
"Hit",X":A=A2:Gü T O SUI1E 
GR=5 THEN FRINT Cf "HltSPC 
"Mit",Y":A=A2:GU1U SUIIE 
GR=6 THEN PRIN1 Cf 
("Hit",X)":A=A2:GOTO 
GR=7 THEN FRINT Cf 
("Hit"),Y":A=A2:GOTO 
GR=9 THEN FRINT Cf 


t (6) MNEMUf 
1340 IF 

* <6) MNEMUf 
1350 IF 

t (6) MNEMUf 
1360 IF 

t (6) MNEMUf 
1370 IF 

t (6) MNEMUf 
1380 IF 


H2*SFCt(3)MNEMUf 


1390 

"H2tSPCt( 
UI TE 
1400 

"H2*SPC*( 
UI TE 
1410 


IF GR=1O 
3) MNEMUf 

IF GR=11 
3) MNEMOf 


"HltSPC 
SU I I E 
"HltSPC 
SUIIE 
"Hit" " 

"H3t:A=A3: GU T O SUIIE 
THEN FRINT Cf "Hit" 
“H3f , X " : A=A3: GOTO S 

THEN PRINT Cf "Hit" 
"H3f , Y" : A=A3: GOTO S 


IF GR=12 THEN PRINT Cf "Hit" 

( "H3f > “ : A=A3: GOTO SU 


"H2tSPCt ( 3) MNEMOf 
I TE 

1420 * 

1430 ' Adressage relatif 

1440 * - 

1450 IF GR=8 THEN PRINT Cf "HltSPC 
t(6)MNEMOt" "; 

1460 IF PEEK(A1)<=127 THEN AD=A2+PE 
EK(Al) ELSE AD=A2-(256-FEEK(Al)) 

1470 H3*=MIDt(HEXt(AD),2,4):ADt=H3t 


QUATRE 

H3t=ADt 

PRINT H3t:A=A2 
]SUITE 
CLI 

IF KEYl THEN GET ATt 
IF ASC(ATt)=13 THEN GOTO 
N=N+ 1 


FINL 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
EN GOTO 
1570 
1580 
E N=1 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
clcoi: 

DEYO1232INXO1200INYO1074LSR" 

1690 ‘ 

1700 DATAt(2)="01168TAY01186TSX01138 
T X AO1154 T X SO1152TYA01234NOPO1072PIIAO1008 
PHP01104PLA" 

1710 DATAt (3) ="01040PLP01042FCOLO1106 


IF NOT(ASC(Bt)=80 AND N=27) TH 
F INBÜUCL 
GET ST t 

IF ST* O” " THEN GOTO FINL ELS 


TFINBQUCL 
WEND 
GET STt 
3FINL 

CLCH O,14:GOTO 
TTABLE 


MENU 


1 octet 

DATAt(1)="O1O1OASLO1OOOBRF01024 
! 16CL DO1088CL101184CLV01202DEX01136 


ROLO1064RT IO 1096RTS01056BEC0124OSEDO1 120 
SE 101170TAX" 

1720 • 

1730 ’ 2 octets-inunediat 

1740 ‘ - 

1750 DATAt(4)="021OSADC02041AND02201 
CMF’02224CPX02192CPY02073E0R021 &9LDA021 62 
LDX02160LDY020090RA02233SBC" 

1 760 

1770 * 2 octets-page O 
1780 • -r- 

1790 DATA*(5)="03101ADC03057AND03006 
ASL03036BIr03197CMP03228CPX03196CPY03198 
DEC03069E0R03230INC03165LDA" 

1800 ' 

1810 DATAt(6)="03166LDX03164LDY03070 
LSRO30050RA03038RUL03102R0R03229SBC03133 
S I AO3134ST X031328 T Y " 

1820 • 

1830 * 2 octets-page O, X 

1840 * - 

1850 DATAt(7)="04117ADC04053AND04022 
ASL04213CMP04214DEC04085E0R04 246INC04181 
L DA041SOL DY04086LSR" 

1860 DATAt(B)=“040210RA04O54R0LO4118 
RQR04245SBC04149S TAÔ4148STY" 

1870 • 

1880 * 2 octets-page O,Y 

1890 • - 

1900 DATAt(9)="05182LDXÔ5150STX" 

1910 * 

1920 * 2 octets (indirect,X) 

1930 ' - 

1940 DATAt(10 > ="06097ADC06033AND0619 
3CMP06065EQR06161LDA060010RA06225SBC0612 
9STA" 

1950 • 

1960 ‘ 2 oc têts-(indîrect),Y 

1970 • - 

1980 DATAt(11)="07113ADC07049AND0720 
9CMP07081E0R07177LDA07Ô170RA07241SBC0714 
5STA" 

1990 ' 2 octets-relatif 

2000 * - 

2010 DATAt(12)="08144BCC08176BCSÔ804 
8BMI0B208BNE08016BPL08080BVC08112BVS0824 
OBEQ" 

2020 * 

2030 * 3 Octets-absolu 
2040 * - 

2050 DATAt(13)="Û9076JMP09173LDA0910 
9ADC09045ANDO9014ASL0904 4 B I1092Û5CMP0923 
6CPX09204CPY09206DEC09077E0R" 

2060 DATAt(14)="09238INCÙ9174LDX0917 
2LDY09078LSR09032JSR09141STAÛ9142ST X0914 
OST Y09046RQL09110R0R09237SBC" 

2070 DATAt <15)="090130RA" 

2080 • 

2090 ' 3 octets-absolu,X 

2100 • - 

2110 DATAt(16)="10125ADC10061 AND1003 
OASL10221 CMP10222DEL10093E0R10254I NC 1 018 
9LDA1O18BLDY10094LSR" 

2120 DA TA*(17)="100290RA10062R0L1012 

6R0R10253SBC10157STA" 

21 30 - 
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320 FRINT ©17,2;"ENTREE DE TEXTE — 
-> rAFEZ T" 

330 FRINT @19,2;"SORTIE DU MONITEUR 
-, TAF'EZ S“- 

340 FRINT ©21,34;"? " ; : GE T R*:R*=UP 
* (R* ) 

350 IF R*="S" THEN NM I 

360 IF R4 = "I" THEN GOTO INSERTION 

370 IF R*="T" THEN GOTO TEXTE 

380 IF R*="D" THEN GOTO DUMP 

390 IF R*="L" THEN GOTO DESASS ELSE 

GOTO MENU 

400 **************** 

4 10 • * DUMF’ MEMOIRE * 

420 * **************** 

430 I DUMF’ 

440 NUM*="DUMP MEMOIRE": ENTREE 
450 B*="": AT*=“" 

460 DECIMAL 
470 A=DEC 

480 PRINT : PRINT "Jusqu’à quelle ad 
cesse ’? " ; : INF'UT A*:A*=UF*<A*> 

490 IF A*="P" THEN B*=A* 

500 IF A* = "“ OR A*="P" THEN A*="FFF 
F" 


510 DECIMAL 

520 B=DEC:IF B<A THEN DUMP 
530 FRINT SPRINT " 1 MF*RIMANTE ? (O o 
u N) "; : GET R*sR*=UP*(R*> 

540 1F R*="0" THEN LPR SETsOF’CH 0,1 
4 

550 CLS:CURSOR 0FF:N=1 

560 WHILE A<=B” BOUCLE D 

570 SE I 

580 AD*=MID*(HEX*(A),2,4) 

590 QUATRE 

600 IF R$<>"0" THEN PRINT CHR*(27) 

"F"AD*; ELSE PRINT AD*"— "; 

610 J=0 

620 COUNT 8 

630 AJ=A+J: IF AJ>65535 THEN AJ=AJ 

-65536 

640 C*=MID* (HEX* (F'EEK <AJ) ) ,2,4) 

650 IF LEN(C*)=1 THEN C*="0"+C* 

660 PRINT C*" "; 

670 J=J+1 

680 UNCOUNT 

690 J=0:IF R*<>"0" THEN PRINT CHR* 

(8)CHR*(27)"B"; ELSE PRINT " "; 

700 COUNT 8 

710 AJ=A+J s IF AJ>65535 THEN AJ=AJ 

-65536 

720 AS=PEEK <AJ) 

730 IF NOT((AS>=32 AND AS<=127) O 

R (AS>=160 AND AS<=255)) THEN AS=46 
740 PRINT CHR*(AS); 

750 J=J + 1 

760 UNCOUNT 

770 PRINT CHR*(13):CLI 

780 IF KEY* THEN GET AT* 

790 IF ASC(AT*)=13 THEN GOTO FIND 

800 N=N+1 :A=A+8: IF A>65535 THEN A= 


A-65536 

810 IF NOT(ASC(B*)=80 AND N=27) TH 

EN GOTO F INBOUCD 

820 GET ST*:CLS 


830 IF ST* O" ” THEN GOTO FI ND ELS 
E N= 1 

840 IF INBOUCD 
850 WLND 
860 GET ST* 

870 IFIND 

880 CLCH O, 14: GOTO MENU 
090 ‘ ******************* 

900 • « ENTREE DE TEXTE * 

910 ’ ******************* 

920 ITEXTE 

930 NOM*=“ENTREE DE TEXTE":ENTREE 

940 DECIMAL 

950 PRINT SPRINT "Entrez votre text 
e : "; : INF’UT T* 

960 POLE DEC,T* 

970 PRINT : PRINT " ON RECOMMENCE ? 
(O ou N) "; :GET R*:R*=UP*(R*) 

980 IF R*="U" THEN GOTO TEXTE ELSE 


GOTO MENU 

990 ‘ ***************** 

1000 ■ * DESASSEMBLAGE * 

1010 ***************** 

1020 1DESASS 

1030 NOM*="DESASSEMBLAGE": ENTREE 
1040 B*="": AT* = "" 

1050 DECIMAL 
1060 A=DEC 

1070 PRINT SPRINT "Jusqu’à quelle ad 
resse ? ";:INFUT A*:A*=UP*(A*) 

1080 IF A*="P" THEN B*=A* 

1090 IF A* = "" OR A*="P" THEN A*="FFF 


F" 

1100 DECIMAL:B=DEC:IF B<A THEN DESAS 
S 

1110 PRINT SPRINT "IMPRIMANTE ? (O o 
u N) " ; : GET Rts R*=UF* (R*> 

1120 IF R*="0" THEN LPR SETsOPCH 0,1 
4 


1130 CLS:CURSOR 0FF:N=1 

1140 WH ILE A<=B * BOUCLE L 

1150 SE I 

1160 AD*=MID*(HEX*(A),2,4) 

1170 QUATRE 

1180 IF R$O"O" THEN PRINT CHR»(27) 

"F"ADV- "; ELSE PRINT ADt"- "; 

1 190 C=PEEK (A) :Ct=MIDt (HEX* (0,2,2) 


1200 A1=A+1 : IF Al>65535 THEN A1=A1- 
65536 

1210 A2=A+2:IF A2>65535 THEN A2=A2- 

65536 

1220 A3=A+3:IF A3>65535 THEN A3=A3- 

65536 

1230 H1*-MID*(HEX*(PEEK(A1)),2,2) 
1240 H2*=MID*(HEX*(PEEK(A2)),2,2):H 

3*=MID*(HEX*(DEEK(Al)),2,4) 

1250 IF LEN(H1 *)=1 THEN H1* = "0"+H1* 

1260 IF LEN(H2*)=1 THEN H2*="0"+H2* 


1270 IF LEN (H3*) 04 THEN AD*=H3*:QU 
ATRE:H3*=AD* 

1280 IF LEN(C*> =1 THEN C*="0"+C* 
1290 GR=VAL(MID*(TAB*(C),1,2)):MNEM 
0*=MID*(TAB*(C),6,3) 
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2140 ' 3 octets-absolu,Y 

2150 ' - 

2160 DATA» (18)="11121ADC11057AND1121 
7CMP11089E0R11185LDA11190LDX11025ÜRA1124 
9SBC11153STA" 

2170 ' 

2180 ' 3 octets-indirect 

2190 ' - 

2200 DATA»(19)="1210BJMP" 

2210 RETURN 


B>65535> 

2620 A=A+1:1=1+1 

2630 UNCOUNT 

2640 IF R*="0" THEN GOTO DEBUT 
2650 AD»=MID»(HEX»(S),2,4): QUATRE:PR 
INT CHR»(27)CHR»(65)“#"AD»,S: GOTO DEBUT 
2660 ' ******************* 

2670 ' * * 

2680 ' * SOUS PROGRAMMES * 


2220 ' ********************** 

2230 ' * INSERTION D'OCTETS * 

2240 * ********************** 

2250 3 INSERTION 

2260 TITRE»="I N S E R T I O N": ENTE 

TE:CLS 

2270 PR INT <86,5; ATTR* 

2280 PR IN r (8/, 5: A 11 R* 

2290 PRINT @11,2;"INSERTION SANS CHE 
CKSUM -> TAPEZ O" 

2300 PRINT @13,2;"CHECKSUM S=S+B - 

-> TAPEZ 1" 

2310 PRINT @15,2;"CHECKSUM S=S+B*I - 
-> TAPEZ 2" 

2320 PRINT @17,2;"CHECKSUM SOMMES CU 
MULEES —> TAPEZ 3" 

2330 PRINT @19,2;"RETOUR AU MENU - 

--r-> TAPEZ M" 

2340 PRINT @21,35;"? ";:GET R»:R»=UP 
» <R»> 

2350 IF R»="0" THEN CHECK»=" SANS CH 
ECKSUM": GOTO OCTETS 

2360 IF R»="l" THEN CHECK*=" + CHECK 
SUM’S=S+B": GOTO OCTETS 

2370 IF R»="2"- THEN CHECK»=" + CHECK 
SUM S=S+B*I": GOTO OCTETS 

2380 IF R»="3" THEN CHECK»=" + CHECK 
SUM SOMMES CUMULEES":GOTO OCTETS 

2390 IF R»="M" THEN GOTO MENU ELSE G 
OTO INSERTION 


2400 

3OCTETS 

2410 

S=0 

2420 

NQM»="INSERTION"+CHECK»: ENTREE 

2430 

DECIMAL 

2440 

A=DEC:PRINT :PRINT 

2450 

3DEBUT 

2460 

IF R»<>"3" THEN S=0 

2470 

AD»=MIDt(HEX»(A),2,4) 

2480 

QUATRE 

2490 

3ADRESSE 

2500 

PRINT ADt+"— "; : INPUT HX»:HX»=U 

P»(HX»> 

2510 

IF ASC(HX»)=32 THEN A=A-NB:S=S1 

:PRINT 

CHR»(11)CHR»(14)CHR»(11):GOTO DEB 

UT 

2520 

IF ASC(HX»)=0 THEN GOTO MENU 

2530 

NB=LEN(HX»)/2: IF NBOINT(NB) TH 

EN PRINT CHR»(13): GOTO ADRESSE 

2540 

1 = 1 :S1=S:COUNT NB 

2550 

A»=MID»(HX»,2*1-1,2) 

2560 

DECIMAL 

2570 

B=DEC 

2580 

POKE A,B 

2590 

IF R»="1" THEN S=S+B 

2600 

IF R»="2" THEN S=S+B*I 

2610 

IF R»="3" THEN S=S+B-65536*(S+ 


2690 

\ * * 


2700 

' **************-**-**# 


2710 

JENTETE 


2720 

ATTR»=ATTR2»+"**"+ATTR3»+TITRE» 

+ATTR2' 

»+"**“ 


2730 

RETURN 


2740 

3ENTREE 


2750 

CLS:PRINT @2,2;NOM» 


2760 

PRINT @5,0;ATTR1»"DONNER 

LES AD 

RESSES 

EN HEXA SANS #" 


2770 

PRINT @9,0;"A partir de 

quel le 

adresse ? ";:INPUT A»:A»=UP»(A») 


2780 

RETURN 


2790 

3DECIMAL 


2800 

AD»=A» 


2810 

QUATRE 


2820 

A»=ADt 


2830 

CONVER 


2840 

RETURN 


2850 

3QUATRE 


2860 

L=LEN(AD»):L»=RIGHT»("000",4-L) 

2870 

AD»=L»+AD4 


2880 

RETURN 


2890 

3CONVER 


2900 

K=0 :DEC=0 


2910 

COUNT 4 


2920 

CH=ASC <MID»(A»,4-K, 1) ) 


2930 

IF CH>47 AND CHC58 THEN 

1 

X 

U 

II 

I 

U 

48 ELSE GOTO ETQ 


2940 

GOTO CALCUL 


2950 

3ETQ 


2960 

IF CH>64 AND CH<71 THEN 

1 

X 

U 

II 

X 

U 

55 ELSE GOTO MENU 


2970 

3CALCUL 


2980 

CH=CH* I NT ( 16'K) 


2990 

DEC=DEC+CH 


3000 

K=K+ 1 


3010 

UNCOUNT 


3020 

RETURN 


3030 

3READ 


3040 

L0NG=8 


3050 

RG=RG+1 


3060 

DATA»=MID»(DATA»(LG+1),RG,LONG) 

3070 

IF RG>=(LEN(DATA»(LG+1>> - 

-LONG) + 

1 THEN 

SUIVANTE 


3080 

RG=RG+LONG-1 


3090 

RETURN 


3100 

3SUIVANTE 


3110 

LG=LG+1 :RG=0 


3120 

RETURN 


3130 

3RES 


3140 

LG=0 


3150 

RG=0 


3160 

RETURN# 
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LABEL 

Etienne LECOLLAIRE 


A ucun BASIC n'est parfait. Celui de l'ORIC n'échappe pas à la 
règle, aussi toute instruction supplémentaire ne peut que faci¬ 
liter la vie du programmeur. 


Certaines machines, le TELES- 
TRAT, par exemple, proposent 
dans leur BASIC la possibilité de 
structurer les programmes à l'aide 
de labels. 

Ces labels permettent d'ignorer, à 
priori, le n° de ligne suivant un ordre 
GOTO ou GOSUB. Il faut avoir uti¬ 
lisé cette possibilité pour s'aperce¬ 


voir de sa souplesse. 

Il est possible de faire ceci avec 
l'ATMOS (et l'ORIC-1) en ré-écri- 
vant les routines correspondantes. 

Il faudra ensuite détourner l'inter¬ 
préteur BASIC de manière à forcer 
l'éxécution du programme vers ces 
nouvelles routines. 


ORGANISATION GENERALE 
DU PROGRAMME 

Le tokeu de l'ordre à exécuter a été 
prélevé par la routine TXTPTR si¬ 
tuée en $00E2. La fin de cette rou¬ 
tine a été modifiée de manière à 
continuer l'exécution sur ce pro¬ 
gramme au lieu de retourner à l'inter¬ 
préteur par un RTS. 



tokeu ON ? 


évalue le déplacement 




positionne le pointeur 
de caractère en fonction 
du déplacement 




caractère suivant "ON" 



Y 



oui 


' 

r 



w oui 


retour 

interpréteur 


empiler adresse 
de retour 









r 





chercher la ligne 
contenant le label 




mettre l'adresse 
de cette ligne sur la pile 
et exécuter 
(retour interpréteur) 


UTILISATION PRATIQUE 

- Le label suivant GOTO ou 
GOSUB devra être entre guille¬ 
mets. Il pourra être composé de 
n'importe quel caractère (sauf guil¬ 
lemets) jusqu'à concurrence de 
256 CARACTERES - les espaces 
ne sont pas significatifs. 

- Le point de branchement sera re¬ 
péré par une ligne "REM" (ou ’ abré¬ 
gé) suivi du même label, toujours 
entre guillemets. 

- On peut mélanger n° de lignes et 
labels. 

- Il sera intéressant, pour la rapi¬ 
dité du traitement, de mettre les 
sous-programmes au début (la re¬ 
cherche se fait à partir du début du 
BASIC). 

- Le branchement abrégé 

IF [condition] THEN [LABEL 1] 

ELSE[LABEL2] 

est interdit 

Il devra s'écrire : 

IF [condition] THEN GOTO [LABEL 
1]ELSE GOTO [LABEL 2] 

EXEMPLES D'UTILISATION : 

voir listings 1 et 2 


le programme, de cette manière, 
est beaucoup plus facile à struc¬ 
turer et beaucoup plus lisible. 
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PROGRAMME LANGAGE 
MACHINE 

Dans la version proposée , il se 
situe à partir de #9600. 

Pour les courageux disposant d'un 
assembleur, il pourra être mis à 


n'importe quelle autre adresse (voir 
Listing source). 

Mais il faudra que le BASIC utilisant 
celui-ci commence par : 

HIMEM (début-1) 

CALL (début) 

Afin de protéger la routine et de 


positionner le détournement de 
l'interpréteur. 

Je laisse à tous les astucieux, la 
manière la plus pratique pour char¬ 
ger cette routine avec le BASIC, 
comme, par exemple, juste derrière 
le BASIC en déplaçant les poin¬ 
teurs pour la sauvegarde, Etc. 
Cherchez un peu, il en restera 
toujours quelque chose ! 

Pour la routine proprement dite, je 
n’ai pas inventé grand chose : je 
me suis inspiré de la ROM, à l’aide 
de l'excellent livre "L'ORIC A NU”. 


LISTING 1 

10 REM LABEL VI. 1 
20 REM 
30 A=10000 

40 FOR I=#9600 TO #9742 STEP 8 
50 C=0 


'#"+B*):POKE I+J,B:C=C+B 


1 10 
120 
130 

140 


60 FOR J=0 TO 7 
70 READ B*:B=VAL< 

80 NEXT 

90 READ B*:B=VAL("#"+B*> 

100 IF COB THEN PRINT "ERREUR LIGNE"A: END 
A=A+10 
NEXT 
REPEAT 

PRINT "Voulez vous -faire une sauvegarde 
150 UNTIL RS="0" OR R*="N” 

160 IF R*="N" THEN END 

170 PRINT "Préparez votre magnétophone" 

180 PRINT "et appuyez sur une touche":GET R* 

190 CSAVE"LABEL VI.1 ",A#9600,E#9742,AUTO:END 

ÎOOOO DATA AO,4C,A9,OD,A2,96,84,F2,0450 
10010 DATA 85,F3,86,F4,60,08,C9,97,04BA 
10020 DATA FO,OA,C9,9B,FO,09,C9,B4,04D4 
FO,08,28,60,4C,25,96,4C,02D3 
55,96,4C,05,97,48,20,F9,0334 
DATA 96,FO,03,68,28,60,68,28,0309 

18.98.65, E9,85,E9,A5,EA,04FB 
69,00, 85,EA,20,91,96,68,0387 
68,A9,C8,48,A9,CO,48,38,040A 
A5,CE,E9,01,85,E9,A5,CF,053F 
E9,00,85,EA,60,48,20,F9,0419 

DATA 96,FO,03,68,28,60,68,28,0309 

18.98.65, E9,85,E9,A5,EA, 04FB 
69,00,85,EA,20,91,96,68, 0387 
68,A9,C8,48,A9,CO,48,A9,047B 
03,20,37,C4,A5,EA,48,A5,039A 
E9,48,A5,A9,48,A5,A8,48,045C 
A9,9B,48,20,47,96,4C,Cl, 0396 
C8,A5,9A,A6,9B,AO,01,85,046E 

DATA CE,86,CF,A5,E9,A6,EA,85,05C6 
F5,86,F6,B1,CE,FO,2F,CB, 05D7 
C8,C8,B1,CE,C9,9D,FO, 04,0569 
DATA C9,27, DO,25,C8,B1,CE,C9,04F5 
20,FO,F9,C9,22,DO,1A,C8,04A6 
B1,CE,C9,20,FO,F9,85,33,0509 
20,E4,96,C9,22,DO,01,60,03B6 
C5,33,DO,05,FO,E9,4C,23,0415 
DATA CA,AO,01,B1,CE,AA,88,B1,04CD 
CE,4C,95,96,98,48,E6,F5,0500 
DO,02,E6,F6,AO,00,B1,F5,04F4 
C9,20,FO,F2,AA,68,A8,8A,050F 
60,AO,00,C8,B1,E9,C9,20,044B 
FO,F9,C9,22,60,28,A9,60,0465 
DATA 85,F2,20,C5,D8,48,08,48,03CC 
A9,4C,85,F2,68,C9,9B,FO,0528 
09,C9, 97,FO,05,28,68,4C,033A 
70,DO,C6,D4,DO,05,28,68,043F 
DATA 4C,OD,96,AO,00,E6,E9,DO,042E 
02,E6,EA,B1,E9,C9,00,FO,0525 
DATA 06,C9,2C,DO,FO,FO,E3,28,04B6 
68,60,55,55,55,55,55,55, 02C6I 


Je vous indique ci-dessous les 
quelques adresses devant être 
modifiées (n° de ligne correspon¬ 
dant au source). 


(G/N) ?":GET R* 


ÎOOOO 

DATA 

10010 

DATA 

10020 

DATA 

10030 

DATA 

10040 

DATA 

10050 

DATA 

10060 

DATA 

10070 

DATA 

10080 

DATA 

10090 

DATA 

10100 

DATA 

10110 

DATA 

10120 

DATA 

10130 

DATA 

10140 

DATA 

10150 

DATA 

10160 

DATA 

10170 

DATA 

10180 

DATA 

10190 

DATA 

10200 

DATA 

10210 

DATA 

10220 

DATA 

10230 

DATA 

10240 

DATA 

10250 

DATA 

10260 

DATA 

10270 

DATA 

10280 

DATA 

10290 

DATA 

10300 

DATA 

10310 

DATA 

10320 

DATA 

10330 

DATA 

10340 

DATA 

10350 

DATA 

10360 

DATA 

10370 

DATA 

10380 

DATA 

10390 

DATA 

10400 

DATA 



Lignes 820 et 840 

LDA #$ C8 i Adresse interpréteur- 
et LDA #$ CO / 1 de l’ATMOS : C8C0 

Lignes 1270 et 1290 —- - - ► Identique 

Ligne 1330 —► JSR $ C437 (ATMOS) - ► réservation 6 
octets sur pile 

Ligne 1460 —► JMP$C8C1 (ATMOS)—►interpréteur 
Ligne 2050 —► JMP $ CA23 (ATMOS) "UNDEF'S 
STATEMENT ERROR" 

Ligne 2470 —► JSR $ D8C5 (ATMOS) —► évaluation 1 
octet 

Ligne 2600 JMP $ D070 (ATMOS) —► "SYNTAX 
ERROR” 

Ligne2660 ► JMP$C917(ATMOS)—►EXECUTION 

D'UNE LIGNE 


LISTING 2 

10 HIMEM#95FF:CLOAD"LABEL V1.1":CALL #9600 
20 CLS 

30 INPUT "NUMERO DE MENU ";N 

40 ON N GOSUB "MENU 1","MENU2","MENU3" 

50 GOTO 30 
100 REM "MENUl“ 

110 PR INT"MENUl" 

120 RETURN 
200 REM "MENU2" 

210 PR I NT”MENU2“ 

220 RETURN 
300 REM "MENU3" 

310 PRINT"MENU3" 

320 RETURN# 
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ÎOO '; Programme de traitement BASIC 


1 10 

' ; de 1abe1 s sur 1 

es ordres GOTO 

830 ' 

LDA #*C8 

5 

Empile la bonne 

120 

• ; GOSUB 

et ON.. 



840 ' 

PHA 

5 

adresse de retour 

130 





850 

LDA #*C0 

î 

a 1 ' interpréteur 

140 

'; VERSION VI.1- 

-SEPT 86 

860 ' 

PHA 



150 

Etienne LEC0LLAIRE 

870 




160 

* 




880 ' 

.G0T04 



170 





890 

SEC 

5 

Ajuste TXTPTR 

180 

•.INIT1 




900 ' 

LDA *CE 

î 

sur le début 

190 





910 

SBC #*01 

ï 

de la ligne cherchée 

200 

' LDY 

#*4C 


; détournement 

920 ' 

STA *E9 



210 

LDA 

1* VERIF. 

L 

; routine 

930 

LDA *CF 



220 

LDX 

«VERIF. 

H 

; TXTPTR 

940 ' 

SBC #*00 



230 

STY 

*F2 


; employée par 

950 

STA *EA 



240 

STA 

*F"3 


; 1 ’ interpréteur 

960 ' 

RTS 



250 

ST X 

*F4 


970 




260 

RTS 




980 ' 




270 





990 

.GOSUB 



280 





1000 




290 

•.VERIF 




1010 

PHA 

5 

Empi1e token 

300 

' PHP 



; Preserve P pour 

1020 

JSR gui 1lemet 


310 

* 



; retour 

1030 




320 

' CMP 

#*97 


; Token GOTO? 

1040 

BEQ GOSUB3 

î 

Trouve,on suit 

330 

BEQ 

GOTO 1 



1050 




340 

CMP 

#*96 


; Token GOSUB? 

1060 

PLA 

5 

non,on récupéré 

350 

BEQ 

GOSUB1 



1070 

PLP 

5 

le token,P et retour 

360 

CMP 

#*B4 


; Token ON ? 

1080 

RTS 

î 

a 1 ' interpréteur 

370 

BEQ 

0N1 



1090 

' 



380 

PLP 



; Récupéré P 

1 100 

' .G0SUB3 



390 

RTS 



; Ni GOTO ni GOSUB 

1110 

PLA 

? 

Mise a jour pile 

400 

• 



; retour interpréteur 

1120 

PLP 



410 

' 



1130 




420 

• .GOTO1 




1 140 

CLC 


Mise a jour TXTPTR 

430 

JMP 

GOTO 



1 150 

' TYA 


de maniéré a pointer 

440 

• .GOSUB1 




1160 

ADC *E9 


sur le 1er “ 

450 

’ JMP 

GOSUB 



1170 

STA *E9 


du label 

460 

' .0N1 




1 180 

LDA *EA 



470 

JMP 

ON 



1190 

' ADC #*00 



480 

' 




1200 

' STA *EA 



490 

' 




1210 

* 




, 




1220 

* TQP rwpprui T RM 

iJVV 








510 





1230 

* 



520 

' .GOTO 




1240 

PLA 

î 

Depile adr.retour 

530 

* 




1250 

PLA 

5 

interpréteur 

540 

PHA 


5 

empile token 

1260 

* 

î 

(pas la bonne) 

550 

JSR 

gui11emet 


1270 

* 



560 

* 



cherche si token 

1280 

LDA #*C8 

î 

Empile la bonne 

570 



5 

suivi d'un guillemet 

1290 

PHA 

î 

adresse de retour 

580 

* 



(déclaration d'un 

1300 

LDA #*C0 

î 

a 1 ' interpréteur 

590 



î 

label.si oui Z=1 

1310 

' PHA 



600 

* 


5 

sinon 0 

1320 

* 



610 

BEQ 

G0T02 

î 

Oui,on suit 

1330 

LDA #*03 

î 

Demander six Octets 

620 

PLA 


5 

Non,on récupéré 

1340 

JSR *C437 

ï 

sur la pile 

630 

PLP 


î 

token,P et retour 

1350 

LDA *EA 

î 

Empiler TXTPTR 

640 

RTS 


5 

a 1 ' interpreteur. 

1360 

* PHA 



650 

* 



• 

1370 

LDA *E9 



660 

• .G0T02 




1380 

' PHA 



670 

PLA 


î 

Mise a jour pile 

1390 

' LDA *A9 

5 

et No de 1 igné 

680 

PLP 




1400 

PHA 



690 

* 




1410 

' LDA *A8 



700 

CLC 


î 

Mise a jour txtptr 

1420 

' PHA 



710 

• TYA 


î 

de maniéré a pointer 

1430 

LDA #*9B 

ï 

et token GOSUB 

720 

ADC 

*E9 

5 

sur le 1er " 

14 40 

PHA 



730 

STA 

*E9 

î 

du label 

1450 

* 



740 

• LDA 

*EA 



1460 

JSR G0T04 

î 

Faire GOTO 

750 

• ADC 

#*00 



1470 

' JMP *C8C1 

î 

et retour a 

760 

STA 

*EA 



1480 

* 

ï 

1 ' interpréteur 

770 





1490 

* 



780 

JSR 

CHERCHLIGN 

1500 

' .CHERCHLIGN 



790 





1510 

' 



800 

PLA 


î 

Depile adresse retour 

1520 

* 



810 

PLA 


î 

(pas la bonne) 

1530 

LDA "*9A 

5 

On commence la 

820 

* 




1540 

* LDX *9B 

î 

recherche au début 
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1550 

• 


î 

du BASIC 

2270 ' 

CMP 

#*’• " 

î 

Espace ? 

1560 

■ .SUITE/1 



2280 • 

BEQ 

SUITE3 

5 

Oui,on saute 

1570 

# 




2290 ' 





1580 

• LDY 

#*01 



2300 • 

TAX 


î 

Caract. dans X 

1590 

STA 

*CE 

î 

*CE-CF =Adr. ligne 

2310 ' 

PLA 


ï 

Récupéré 

1600 

ST X 

*CF 



2320 ' 

TAY 


î 

pointeur Y 

1610 

LDA 

*E9 

5 

TXTPTR en *F5-F6 

2330 ' 

TXA 


î 

Caract. dans A 

1620 

LDX 

*EA 

î 

pointeur provisoire 

2340 ' 

RTS 




1630 

STA 

*F5 



2350 ' 





1640 

STX 

*F6 



2360 * 





1650 

* 




2370 '.guillemet 



1 660 

LDA 

<*CE>,Y 

i 

Poids fort lien: 

2380 ' 

LDY 

#*00 



1670 

BEQ 

NON/TROUVE 

2390 '.GUIL 




1680 



î 

si 00,fin programme. 

2400 ' 

INY 


î 

Cherche si caract. 

1690 

• 




2410 ' 

LDA 

(*E9),Y 

ï 

suivant 1 " 

1700 

• I NY 


î 

Pointe sur 1er token 

2420 • 

CMP 

#*.. .. 



1710 

I NY 




2430 ’ 

BEQ 

GU IL 



1720 

' I NY 




2440 ' 

CMP 

#*22 

5 

si oui,Z=l sinon*0 

1730 

' LDA 

<*CE>,Y 



2450 • 

RTS 




1740 

CMP 

#*9D 

î 

Egal a REM? 

2460 * 





1750 

BEQ 

ESPACE 

î 

Oui,on continue 

2470 ’.ON 




1760 

CMP 

#*27 

î 

Egal a ' ? 

2480 ' 





1770 

BNE 

SUITE 

î 

Non,ligne suivante 

2490 ' 

PLP 


5 

Restitue P • 

1 780 

• 




2500 ' 

LDA 

#*60 

î 

Supprime détournement 

1790 

'.ESPACE 




2510 ' 

STA 

*F2 

î 

TXTPTR 

1800 

INY 


î 

Caract. suivant en 

2520 ' 

J SR 

*D8C5 

5 

Evalue déplacement 

1810 

LDA 

(*CE),Y 

î 

sautant les 

2530 ' 



* 

en *D4 

1820 

' CMP 

#*" •• 

î 

espaces 

2540 ' 

PHA 


5 

Sauve TOKEN GOTO 

1830 

BEQ 

ESPACE 



2550 ' 



î 

ou GOSUB 

1840 

CMP 

#*22 

î 

Egal a " ? 

2560 ' 

PHP 




1850 

BNE 

SUITE 

î 

non,ligne suivante. 

2570 ' 





1860 

• 



2580 ' 

PHA 


î 

Rétablie detournememt 

1870 

’ .CONTINUE 



2590 ' 

LDA 

#*4C 

î 

TXTPTR 

1880 

INY 




2600 ‘ 

STA 

*F2 



1890 

• LDA 

( *CE ) ,Y 


Compare a chaine 

2610 ' 

PLA 




1900 

* 



label (adr. en F5-F6) 

2620 ' 





1910 

■ CMP 

#*" ” 


Espace ? 

2630 ' 

CMP 

#*9B 

î 

GOSUB ? 

1920 

BEQ 

CONTINUE 


oui,on saute. 

2640 - 

BEQ 

OKON 

5 

oui, suite... 

1930 

STA 

*33 



2650 ' 

CMP 

#*97 

5 

GOTO ? 

1940 

' J SR 

TXTPTR1 


Prend caract.dans 

2660 ' 

BEQ 

OKON 

5 

oui, suite... 

1950 

' 



chaine label 

2670 ' 

PLP 




1960 

• CMP 

#*22 


égal a " ? 

2680 ' 

PLA 




1970 

BNE 

SUITE/C 


non,suite comparaison 

2690 ' 

JMP 

*D070 

ï 

non! ERREUR 

1980 

RTS 



oui,trouve 

2700 ' . 

OKON 




1990 





2710 ' 

DEC 

*D4 

5 

pointeur ON 

2000 

• .SUITE/C 



2720 ' 

BNE 

SUI/ON 

ï 

non zéro 

2010 

CMP 

*33 

5 

égal ? 

2730 ' 

PLP 




2020 

BNE 

SUITE 

î 

non,ligne suivante 

2740 ' 

PLA 


? 

on est arrive, on 

2030 

' BEQ 

CONTINUE 



2750 * 



î 

récupéré le TOKEN 

2040 

* 




2760 ' 

JMP 

VER IF 

î 

et execution... 

2050 

' .NON/TROUVE 



2770 ' 





2060 

' J MP 

*CA23 

î 

Message erreur 

2780 '. 

SUI/ON 




2070 

• 




2790 ‘ 

LDY 

#*00 



2080 

'.SUITE 




2800 '. 

VI RG 




2090 

LDY 

#*01 

5 

Récupéré lien 

2810 # 

INC 

*E9 

? 

Incremente TXTPTR 

2100 

' LDA 

(*CE),Y 

ï 

ligne suivante 

2820 ' 

BNE 

VIRG/1 



2110 

TAX 




2830 ‘ 

INC 

*EA 



2120 

' DEY 




2840 '. 

VIRG/1 




2130 

• LDA 

(*CE),Y 



2850 ' 

LDA 

<*E9>,Y 



2140 

JMP 

SUITE/1 

î 

On continue 

2860 ' 

CMP 

#*oo 

î 

Fin de ligne ? 

2150 

* 




2870 ' 

BEQ 

NON/ON 

5 

Oui,on sort 

2160 

‘.TXTPTR1 



2880 ' 

CMP 

#*",“ 

5 

Virgule? 

2170 

' TYA 


î 

Y (pointeur) sur 

2890 * 

BNE 

VI RG 

ï 

Non,on continue 

2180 

' PHA 


5 

la pile. 

2900 ' 

BEQ 

OKON 


trouve, suite... 

2190 

• 




2910 '. 

NON/ON 




2200 

' .SUITES 




2920 ' 

PLP 




2210 

' INC 

*F5 

? 

Pointe sur 

2930 f 

PLA 


î 

non trouve. 

2220 

' BNE 

SUITE2 

î 

carac tere 

2940 * 

RTS 


t 

on sort 

2230 

* INC 

*F6 

î 

suivant 

2950 •* 





2240 

’.SUITE2 




2960 •. 

END 




2250 

' LDY 

#*00 

? 

On prend le 

2970 * 





2260 

LDA 

<*F5),Y 

î 

caractère. 

2980 '■ 
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MOU U NS MICRO PEROU 
90. ru* Regemortes 
03000 MOULINS 


LIBRAIRIE PRIVAT 
14. ru* 4m Art» 
31000 Toiom 


GUERUN-MART1N & fl LS - LIBRAIRIE 
8a piaoe Drouet «TE/tan BP 216 
S106Ô REIMS CEDEX 


ARP AJOU-O R GAN S A T10N 
12. place d* I* Cahedrie 
64100 SAVONNE 


LORE1LLE HARDIE 
Cent* Commercial Intermartft* 
04000 OIGNE 


LA PUCE SAVANTE 
8. Bd do U Gare 
31500 TOULOUSE 


LIBRAIRIE MOI AUD 

9. ru* du Ceàtr Sort PWt* BP 360 

51062 REIMS CEDEX 


GES PYRENEES 

28. ru* d* Chassai 
64600 ANGLET 


FNAC ETOILE - Cent* MCE Etoile 

30. averu* Jean Medean 

06000 NICE 

LIBRAIRIE MOLLAT 

83 à 91. ru* Porte-Drjeaw 

33080 BORDEAUX 

HI-FI DIFFUSION - Jetmco SARI 

19. ru» Tondu» de rEecxene 

06000 NICE 

FKAC. 

Cent* commerçai PcNqone 

33000 BORDEAUX 

LIBRAIRIE A LA S0R80M4E 

SNO Seyrat 

23. ru* Hôtel des Postes 

42. ru* Grofcedo 

06000 NICE 

SON VIDEO 2000 

MICRO-AO JT AINE (El COCAS) 

31. Cours d* TYser 

33800 BORDEAUX 

GES COTE D’AZUR 

Resdeno* les Hases Claires 

454. ru* des Vacgu*n*s 

06210 MANOELIEU 

UBRAIRIE A LA SORBOMiE 

7, ru* des Belges 

06400 CANNES 

PANORAMA DU UVRE 

U BR Al FIE DES ECOLES 

Cent* Commérai CAP 3000 

06702 ST LAURENT DU VAR 

INFORMATIQUE 2000 
piao* René Dewc Le Triangte 

34000 MONTPELUER 

MICROPUS 

15. Bd Gambetta 

34000 MONTPaLIER 

LIBRAIRIE SAURAMPS 

L* Tnangl* 

Ale* JJes Mtiau BP 9551 

34045 MONTPELUER CEDEX 

FORUM DU LIVRE 

5. quai Lamartine 

35000 RENNES 

mkao STORE 

3. place St Germam 

35000 RENNES 

LIBRAIRIE DIALOGUES 

LOISIR A CULTURE 
rue de te Chafctas 

35000 RENNES 

MtCROPOUS 

29. ru* Parlât d* Mcntab*r1 

10000 TROYES 

UBRAIRIE DE LUMVERSTTE 

12 A. ru* Na;are* 

13100 AJX EN PFX)VENCE 

FNAC MARSEILLE 

Cent* Bourse 

13231 MARSEILLE CEDEX 

UBRAIRIE FLAMMARION 

54. la Cam*6«r* 

3. M»ché des Capuons 

13231 MARSEILLE CEOEX 1 

MAU PETIT UBRAIRIE 

UMVERS ALLEES 

144. U Canebere 

13232 MARSEILLE CEDEX 01 

LA PUCE INFORMATIQUE 

42. ru* du Four-Bourg-Neuf Vieux Salon 

13300 SALON DE PROVENCE 

HCRO-C INFORMATIQUE 

3, Bd de Beaumont 

35000 RENNES 

I.CLL N FO AMADOUE 

48. Bd de la Uberte 

35000 RENNES 

VIDEO SERVICE INFORMATIQUE 

GALLE 

9. place du PréSK*«nt Coty 

37100 TOURS NORD 

LM 

Cent* Commeraal CATS 

37170 CHAMBRAY LES TOURS 

LIBRAIRE ARTHAUD 

23. Grande rue BP 187 

38000 GRENOBLE 

LIBRAIME HAREL 

11, rue Sant Jaauee 

38000 GRENOBLE 

U BR Ai FIE ARMOIRIES - JABALOT B. 

26. ru* Sam»-Yen 

17000 LA ROCHELLE 

H2L 

21 ru* Atoert 1er 

17000 LA ROCHELLE 

GES CENTRE 

25. ru* Cdefle 

18000 BOURGES 


UBRMHE DE L UMVERSTTE 

17, ru.delàlix.» BP 1070 

21025 DUON CEDEX 

134, rue de la RAputAque 

39400 MOREZ 

LIBRAIRE PH. ET AN 

3. ru* du Ccmmero* 

41000 BLOIS 

BERGERAC DIFFUSION PRESSE 

37. ru* d* la Rôasteno* 

24100 BERGERAC 

LIBRAIRIE LAUXEROS 

40. ru* Charl** d* Gaule 

42300 ROANNE 

CRUSSOL LIBRAIRIE 

10 Bd Gai de Gaule 

26000 VALENCE 

LIBRAIRIE C. OUGUEL 

TECHMOUE ET CLASSIQUE 

8. piaoe d* U Boas* 

44000 NANTES 

U BR AJ FIE LEGUE - AU UVRE D'OR 

10. ru* Noü Balay 

28000 CHARTRES 

UBRAIRIE D. LESTER 

13. be rue du Crane 8P 124 

28007 CHARTRES CEDEX 

MCRONAUTE 

9. ru* Urvcy d* Sert B«dan 

44000 NANTES 

K EM PER INFORMATIQUE 

72774. ev de la übèraton 

29000 OUIMPER 

UBRAIRIE LOOOE 

And* rua* J. <f Arc et Royal* 

45000 ORLEANS 

CASTELAS.A 

LA MAISON DU STYLO 

20, piaoe du Capta** 

FVCHER UBRAJRE 

6. ru* Chaperonner* 

49000 ANGERS 


31000 TOULOUSE 

DEPOT REGIONAL DE UBRAIRIE 
FNAC TOULOUSE FORUM 

UBRAIRIE DES CAPÏTOULS Cent* Commeroi 

1 bv place Ocoùn* *L** Hall**' BP 811 

31000 ToAoum 49008 ANGERS CEDEX 


LOGMCRO 

M L*h«r 

2 av de Laon 

51100 REIMS 

MKRO-PYRENEES 

41. ru* du 4 septembre 

65000 TARBES 

OR01-2000 


MIL 

Thierry COLENO 

27. ru* Ambras* Par* 

53000 LAVAL 

127. av du Régnent d* Sacn* 

65000 TARBES 

BERGER VICTOR 

LA GRANDE UBRAIRIE 

13.15 ru* St Georges 

54000 NANCY 

INFORMATIQUE SERVICE 

68. ru* Maréchal Foch 

66000 PERPIGNAN 

MICRO CENTER 


UBRAIRIE "A LA SORBONNE" 

F. SCHMfTZBERGER *t C« 

12. ru* St Durer BP 25 

54002 NANCY CEDEX 

Centr* Com mer o al 
place des Haies 

67000 STRASBOURG 

BERGER LEVRAULT 


LA BOUQ JNEHE 

7. ru* du Port 

56100 LORIENT 

23 place B/oglie 

67081 STRASBOURG CEDEX 

UBRAIRIE HAFTTMAM'I P*ul 



CSE. 

24, Sande n» 

MchelLUTZ 

6. ru* Oms 

68Û2S COLMAR CEDEX 

57000 METZ 

ALSATIA UNION 

4. daœ de La Reutan 

MCRO BOUTIQUE - E CONO MAI S ON 

68051 MULHOUSE 

1-3. ru* Paul B«arçon, 
place d* la Cattedral* 

UBRAIRIE G BISEY 

57000 METZ 

35. place de te Rèurton 

68100 MULHOUSE 



16.ru* Anoen Hàptal 

57100 THONVUE 

GES LYON 

6. ru* d* rAfrna 

69001 LYON 


FURET DU NORD 

15. place deGaUte BP 255 

FLAMMAF10N UBRAJHE 

59002 LILLE CEDEX 

19, piao» Beiectxf 

69002 LYON 

MCROTEX - TAQUN 


22. piaoe d* la répubtqua 

59170 CROIX 

UBRAIRIE CAMUGU 

6. ru* d* te Chante 

69002 LYON 

FURET DU NORD 


20. place d* U Reputfqu* 

59200 TOURCOING 

UBRAIRIE OECJTRE 

6. place Beleoour 

69002 LYON 

FURET DU NORD 


21. ru* du Ouaanoy 

50300 VALENCCN NES 

TOUT POUR LA RADIO 

66. Cours Lalayette 

69003 LYON 


PflOTEC PHONE 


9. ru* St Jacques 

59600 DOUAJ 

ANTENNES PFING AU LT 

MK3RO-GEST10N-FOCH 

25. ru* de Se» 

69006 LYON 

UBRAIRIE INFORMATIQUE 

MONT Ai G 

8, ru* Pr* Ben»** 

74300 ausES 

39. ter route d* Fagraes 

59600 MAU BEUGE 

FURET DU NORD - DE ROME SA 

18*120. av Je»iMabusa 

□ BEAT JEUNE 

15. tas Bd St Oerxs 

59(00 MAU BEUGE 



FURET DU NORD 

75006 PARS 

15, Bd Batey 

62300 LE NS 

FNAC ETOILE 

26. avenu* d* Wagram 

LENS MICRO INFORMADQUE 

96 av A/tred te 

75008 PARS 

route d* Lw*n 

MKROPLUS "ELYSEES 26" 

62300 LENS 

28. av Champs Elyse** 

75008 PARS 

MCROGICIEL 


Bernard Thomas 

2. place P Bonhomme 

62500 St OMER 

MICROPLUS 

Ste K BS ELECTRONCS 

64. ru* d* te Chaussa* <S Anén 

75009 PARS 

GES NORD 

9. ru* d* r Alouette 

62690 ESTREE CAUCHY 

UBRAIRIE PAFlSIEftlE 

DE U RADIO 

43. ru* d* CXaàerqu* 


GIBERT JOSEPH UBRAIRIE 

42, av des Etab-Urx» 

75480 Para Céd*i/10 

63000 CLERMONT FERRAND 

V1SMO 

84. Bd Beaumarchais 

UBRAJR1E LES VOLCANS 

75011 PARS 

80 Bd Gergovta 

63000 CLERMONT FERRAND 

CHOL ET COMPOSANTS 

ELECTRON QUE 

NEYRIAL 

Z ru* Emèo-CasMar 

3 Bd Desau 

63000 CLERMONT FERRAND 

75012 PARS 


GENERALE 

BAS£4UbnHe 

ELECTRON QUE SERVICES 

EncGRENÉR 

GES. P» 

11. ru* Samcruet 

68 et 76. av L*dru RcJfri 

64000 PAU 

75012 PARS 


SHOP PHOTO 

33. ru* Ccmmandanl Moufette 
75014 PARS 


FNAC FORUM 
1. ru* FVrr*-L«cot 
75045 PARS CEDEX 01 

UBRAIRIE EYROLLES 
61. Bd Si German 
75240 PARS CEDEX 05 

UBRAIRIE DUNOO 
30. ru* Sawt-Sutao* 
75278 PARS CEOEX 06 


Cm ZEN B AND 
31. Bd d* U Mam* 

76000 ROUEN 

UBRAIRIE LESTR1NGANT 

123, ru* Gai L*d«rc 
76000 ROUEN 


ETS THOMAS 
MICRO-INFORMATIQUE 
153. «v d*La Reputta* 
78500 SARTROU VILLE 


U BR AJ UE DELOCHE SA 
21. ru* d* la RéçutÉqu* 
82000 MONTAUBAN 


U BRAIRE GAY 
4. place delà Uberte 

83000 TOULON 


UBRAIRIE AMBLARD 
10-14. Pated Mahwar 
84000 AVIGNON 

RC ELECTROABC 
U MARTIN Robvt 
53. ru* Victor Hugo BP 12 
84100 ORANGE 


GIBERT J. UBRAIRIE 
9. ru* Gambette 
86000 POITIERS 

MAJUSCULE POITOU 
i 3. br$ ru* d* T Eperon 
86000 POITIERS 

UBRAIRIE 
DE L UMVERSTTE 
70. Ru* Gambette BP 109 
86003 POITIERS CEDEX 


UBRAIRIE BAR AD AT 
8. piao* St FW 
87100 LIMOGES 


S.OL 

25. route d* Monter?* 
89300 JOIGNY 


NIOCH AU-MARECHAL 
UBRAIRIE DU LYCEE 
100. Grand*-Ru* 

91160 LONGJUMEAU 

LC.V 

130. ru* d* Ccrbd Vlerraicn vOa* 
91360 EP1NAY SORGE 


LOISITECH 
C*nt* Terminai 93 
93106 MONTREUIL 

O RDI PLUS 
7. place Cameinat 
93600 AULNAY S90S 


BERTHET A SA 
U B. d* I* Grand* Ru* 

105. Grand* Ru* O d* Gaü* 
94130 NOGENT SMARNE 

OROIVIDUa 
20. ru* d* Mcrtrcul 
94300 VINCENNES 


LAONER SA 

175. av du Générai Lederc 

94780 MASON-ALFORT 


AVEN A STE 
Square Cdomba 
BP 94 

95021 CERGY CEOEX 


UBRAJNE 
POCHOTHEOUE 
LECUT R«rr* 

2. rue de Steénarad 
I 96120 ERMONÎ 



















































































TRACE 

D'HISTOGRAMMES EN 



Claude ROUGE 


Deuxième partie 


N otre 2ème partie, est un programme BASIC organisé sous for¬ 
me de sous-programme et dont les instructions, numérotées à 
partir de 60000, sont à fusionner avec votre programme 
d'application. Il va permettre de réaliser tous les calculs d'échelles, 
de déterminer les cadrages nécessaires et va organiser l'ensemble 
du tracé. 


Il aura les caractéristiques sui¬ 
vantes : 

1 - Tracé d'histogrammes pour des 
valeurs comprises entre -9999999 
et +9999999, pour les petites va¬ 
leurs supérieures à +0.000001 ou 
inférieures à -0.000001. 

2 - Calcul automatique d'une échel¬ 
le de valeurs 

3 - Représentation maximale de 36 
valeurs,organisées en X "natures" 
de Y "valeurs" chacune. 

avec X< = 12 et X* Y< = 36 

4 - Chaque "nature” est représen¬ 
tée par un motif différent (1< = M < 
= 12 ). 

5 - Les histogrammes sont repré¬ 
sentables en barres superposées 
ou côte à côte et en "relief" ou "a 
plat". 

6 - La gestion de l'écran est auto¬ 
matique, (largeurs des barres, 
échelles, unités... ) 

7 - Choix d'un titre général, de la 
mention ou non des "natures" 
(pour 4 maxi), inscription de la signi¬ 
fication des valeurs tracées. 


Il doit recevoir en entrée les infor¬ 
mations suivantes du programme 
d'application : 

X = nombre de natures d'informa¬ 
tions à tracer 
avecX< = 12(ex :X = 3) 

Y = nombre de 'valeurs' pour cha¬ 
cune des 'natures', 
exemple Y = 4 

ZD (X, Y) est le tableau des valeurs 
à tracer pour les X 'natures' et les Y 
'valeurs' de chaque 'nature'. 

ZD (X, Y) est un tableau dimen¬ 
sionné par le programme d'appli¬ 
cation et utilisé par le sous-pro- 
gramme d'histogrammes pour tra¬ 
duire les valeurs ZD en hauteurs 
d'écran. 

ZN$ (X) est le tableau des libellés 
associés à chaque 'nature'. Atten¬ 
tion, ces libellés ne sont utilisés 
que pour leurs 4 premiers carac¬ 


tères et pour 4 'natures' au maxi¬ 
mum. 

exemple : ZN$ (1) = "CITRoen" : 
ZN$ (2) = "PEUGeot" : ZN$ (3) = 
"RENAult" 

ZA$ (Y) est le tableau des libellés 
associés à chaque 'valeur', ces libel¬ 
lés sont utilisés selon la largeur qui 
sera définie automatiquement par 
le sous-programme pour chaque 
barre. 

exemple :ZA$(1) = "1985":ZA$ 

(2) = "1986" : ZA$ (3) = "1987": 

ZA$ (4) = "1988" 

ZT$ est le titre général du tracé (30 
caractères utilisés au maximum). 

OM permet le rappel facultatif des 
'natures' avec le motif associé (pour 
4 'natures' au maximum) 

= 1 avec rappel des natures 
= 0 sans le rappel des natures 
OQ permet le tracé en 'relief 
= 1 en relief 
= 0 a plat 

OE permet le tracé des échelles et 
unités sur celles-ci. 

= 0 tracé des échelles 
= 1 sans tracé des échelles 

OG pe-met un tracé de quadrillage 
= Osans le quadrillage 
= 1 avec le quadrillage 

OS permet d'obtenir des barres 
d’histogrammes superposées ou 
côte à côte. 

= 0 barres cô‘,e à côte 
= 1 barres superposées 
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NB si OS = 1, le programme vérifie 
que toutes les valeurs à tracer sont 
de même signe, sinon il tracera 
automatiquement en barres côte à 
côte) 

MO (X) est le tableau des numéros 
de motifs associés à chaque 'na¬ 
ture' 

MO (X) doit être compris entre 0 et 
12 

si MO (X) = 0 alors la lème 'nature' 
aura le motif I. 

A noter que l'écran Hires est totale¬ 
ment utilisé par le sous-programme 
Basic. 

Les 3 octets de gauche contien¬ 
nent les valeurs d’échelles, les 36 
octets suivants sont réservés au tra¬ 
cé des barres de l'histogramme, le 
dernier octet est utilisé par le cadre. 
Ceci explique que le programme 
proposé ne peut gérer la couleur 
sur l'écran Hires. 

UTILISATION 

-Réaliser un programme d'appli¬ 
cation qui, selon le problème à trai¬ 
ter, effectue le chargement de tou¬ 
tes les valeurs et tableaux mention¬ 
nés précédemment et le protège 
par un HIMEN#92FF 

- Charger le module de tracé : 
HISTO.CMD 

- Charger, selon votre imprimante, 
un module de vidage écran, à une 
adresse comprise entre #9560 et 
#97FF. 

-"MERGER" à votre programme 
d'application le sous-programme 
Basic de tracé. SUBHISTR.BAS, et 
placez en ligne 60830 le point d'en¬ 
trée de votre module de vidage 
écran. 

- Dans votre programme d’applica¬ 
tion, après le chargement des ta¬ 
bleaux et valeurs, l'appel au tracé 
se fait par : 

GOSUB 60000 

-Lorsque le tracé est achevé, un 
appui sur la touche 'ESC' permet le 
vidage de l'écran sur l'imprimante, 
un appui sur une autre touche per¬ 
met de revenir au programme d'ap¬ 
plication. 
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60000 

60001 

60002 

60003 

60004 

60005 

60006 

60007 
NNEES 

60008 

60009 

60010 
6001 1 
60012 
60013 
6001 4 
60015 


REM-SUBHISTR. BAS- 

REM TRACE D’HISTOGRAMMES 
REM + ECHELLES AUTOMATIQUES 

REM + CADRAGE AUTOMATIQUE 

REM Claude Rouge (Dec 85) 

REM- 

REM 

REM —> CALCUL ECHELLES EN ORDO 

IFOM=1ANDX >4THENXM=4 
IFOM=1ANDX <5THENXM=X 
E15=145: IFM2=OTHENM2=1 
IFM1=OTHENM1=2 
IFX=1THEN0S=0 

FORJ=1TOX: IFMO(J)=OTHENMO(J)=J 
NEXT 

MX=0:MN=0:V=0:V1=0:IFX>4THEN0M= 


O 

60016 IF0S=1THENG0SUB61550 

60017 IFOS=1THEN60040 
60020 FORI=1T0X:FORJ=1TOY 
60025 IFZD(I,J)>MXTHENMX=ZD(I,J) 

60030 IFZD(I,J)<MNTHENMN=ZD <I,J) 

60035 NEXT:NEXT 

60040 IFMN=OTHENET=MX:U=ET:G0SUB61150 
:G0T060100 

60045 IFMX=OTHENET=-MN:U=ET:G0SUB6115 
O:G0T060100 

60050 IFABS(MX)>=ABS(MN)THENG0SUB6125 
O:G0T060100 

60055 IFABS(MX)<ABS(MN)THENG0SUB61300 
60100 ET=V+V1 
60102 FORI=OTOX: FORJ=1TOY 
60105 ZC(I,J)=INT(.5+ZD(I,J)*E15/(W*E 
T) ) 

60110 NEXT:NEXT 

60190 REM —> CADRE ET TITRE DU TRACE 
60200 HIRES 

60205 CURSETO,O,1:DRAW239,0,1:DRAWO,1 
99,1 : DRAW—239,O, 1 :DRAWO,-199,1 

60206 ZT*=LEFT*(ZT*,30) 

60210 CURSET21,3,0:FORK=1TOLEN(Z T *) 

60215 CHARASC(MIDt(ZTS,K,1)),0,1:CURM 
0V7,O,O:NEXT 

60216 CURSETO,186,1:DRAW239,O,1 :CURSE 
T168,186,1 :DRAWO,13,1 

60218 REM —> CADRAGE EN ABSCISSES 

60220 RX=X:IF0S=1THENX=1 

60221 G0SUB61450:DT=X*LA+(X-l)*IT-HG: 


X=RX 


60225 FOR I = 1 TOX : ZN* ( I ) =LEFT* ( ZN* ( I ) " 
",4):NEXT 

60226 F0RI=1T0Y:ZA*(I)=LEFT*(ZA*(I),D 
T):NEXT 

60250 CURSET172,190,O:UN*="EN:"+UN* 
60255 F0RI=1T0LEN(UN$) 

60260 CHARASC(MIDI(UN*,I, 1)),0, 1 :CURM 
0V6,0,0:NEXT 
60270 IF0EO0THEN60280 
60272 CURSET18,17,1:DRAWO,152,1 
60274 IF0Q=0THEN60280 
60276 CURSET24,11,1:DRAWO,152,1 
60280 FORI=1T0YSTEP2:CURSET20+6*MG+(I 
-1)*6*DT,168,0 

60285 F0RJ=1TOLEN(ZA*(I)):CHARASC(MID 
t(ZA*(I),J,1)),0,1 :CURM0V6,0,O:NEXT: NE 
XT 

60287 IFY<2THEN60300 


60290 FOR I =2T0YSTEP2ï CUF;SET20+6*M6+ ( I 
-1)*6*DT,176,0 

60295 F0RJ=1TOLEN(Z A4(I)):CHARASC(MID 
4(ZA*(I),J,1)),0,1:CURM0V6,0,0:NE X T: NE 
XT 

60298 REM —> RECHERCHE DU POINT ZERO 

EN ORDONNEE 

60300 IFABS(MX)>ABS(MN)THENZ=E15*V/ET 
ELSEZ=E15*V1/ET 

60302 BAS=19+INT(Z) 

60305 CURSET13,BAS,1:DRAW226,0,1 :CURS 
ET3,BAS-4,0:CHAR48,O,1 

60306 IF0Q=0THEN60308 

60307 CURSET18,BAS,1 :DRAW6,-6,1:CURSE 
T24,BAS—6,1 :DRAW215,O,1 

60308 IFABS(MX)>=ABS(MN)THENSS=-1ELSE 
SS=1 

60315 PAS=E15*5/ET 

60316 IFOE=1THEN60400 

60317 IFV<10THEN60321 

60318 IFV=0THEN6O330 

60319 REM —> TRACE DES TIRETS SUR EC 
HELLE ORDONNEE (/10,/5,/l> 

60320 FORI=1OTOVSTEP10:CURSET15,BAS+S 
S*PAS*I/5,1 :DRAW3,O,1 :DRAW6,-6,OQ:NEXT 

60321 FORI=5T0VSTEP1O:CURSET16,BAS+SS 
*PAS*I/5, 1 :DRAW2,O,1 :DRAW6,-6,OQ:NEXT 

60322 IF PAS<20THEN60325 

60323 P1=PAS/5:FORI = 1TOV-1 :CURSET17,B 
AS+SS*P1*1,1 : NE X T 

60325 IFVl=0THEN6034O 

60326 IFV1<10THEN60331 

60330 FORI=10T0V1STEP1O:CURSET15,BAS- 
SS*PAS*I/5,1 :DRAW3,O,1 :DRAW6,-6,OQ:NEX 
T 


60331 FORI=5TQV1STEP1O:CURSET16,BAS-S 
S*PAS*I/5,1 :DRAW2,O,1 :DRAW6,-6,OQ:NEXT 

60332 IF PAS<20THEN60340 

60333 P1=PAS/5: FORI = 1TOV1-1 :CURSET17, 
BAS-SS*P1*1,1 :NEXT 

60340 IFV=ÛTHEN60370 

60345 IFV=100THENW=99ELSEW=V 

60346 REM —> TRACE DES CHIFFRES SUR 
ECHELLE ORDONNEE (/10.,/5) 

60347 IFV<10THEN60360 
60350 F0RI=10T0WSTEP10 
60355 G0SUB61355:NEXT 
60360 IFPAS<20THEN60370 

60365 FORI=5TOWSTEP10:G0SUB61355:NEXT 
60370 IFV1=0THEN60400 

60372 IFV1=1OOTHENW1=99ELSEW1=V1 

60373 IFV1<10THEN60385 
60375 F0RI=10T0W1STEP10 
60380 G0SUB61380:NEXT 
60385 IFPAS<20THEN60400 

60390 FORI=5T0W1STEP10:G0SUB61380:NEX 
T 

60400 IFOM=1THENG0SUB61400 
60410 REM —> TRACE DES BARRES DE L'H 
ISTOGRAMME 

60412 IFOS=1THENG0SUB61600:G0T060800 
60415 DX=#A000+40*BAS+3:D0KE0,BX 
60420 FORI = 1TOX: FORJ=1TOY 
60430 MO=MO(I):DP=MG+DT*(J-l)+(LA+IT) 
*(I-1) 

60440 IFZC(I,J)<0THENSS=1ELSESS=0 
60450 HT=ABS(ZC(I,J)) 
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60455 BX=DX+SS*40*HT:DOKEO, BX 

60460 CALL#9300,DP,HT,O,LA,MO,OQ,M1,M 


60470 NEXT:NEXT 
60800 GETA* 

60810 IF A*OCHR* <27> THENTEXT: RETURN 
60815 REM —> APPEL MODULE VIDAGE ECR 
AN 

60830 CALL49600(D) 

60840 G0T060B00 
60990 RETURN 

60999 REM —> CADRAGE INITIAL ORDONNE 
ES <>10 ET ClOO) 

61000 F0RJ=1T06:L=J*K:U=ET*10''(-L) : IF 
U>1OANDU<1OOTHENRETURN 

61005 NEXT 

61010 PRINT"VAL TROP PETITE OU TROP G 
RANDE":RETURN 

61145 REM —> CADRAGE FIN DE LORDONN 
EE 

61150 K=0:J=0 

61152 IFET <10THENK=—1 :G0SUB61000 
61155 IFET>10ûTHENK=l:G0SUB61000 
61160 V=10*INT(U/1Ù+.5):IFV<UTHENV=V+ 
5 

61170 W=10"'(K*J) 

61172 IFW=1THENUN*="UNITES" 

61173 IFW>1THENUN*=RIGHT*(STR*(W>,LEN 
(STR*(W) > —1> 

61174 IFW<1THENUN*="l/"+RIGHT*(STR*(1 
/W),LEN(STR* <1/W))—1> 

61180 RETURN 

61229 REM —> CALCUL INTERVALLES 

61230 R=Y*(X—1)*IT+(Y-l)*IG+MG+MD:RET 
URN 

61245 REM —> HOMOGENEITE DES ECHELLE 
S >0 ET <0 

61250 U=ABS(MX): ET=U:G0SUB61150 
61255 U1=ABS(MN)/W:V1 = 10*INT <U1/10+.5 
): IFV1<U1THENV1=V1+5 
61260 RETURN 

61300 U=ABS(MN): ET=U:G0SUB61150 
61305 U1=MX/W:V1=10*INT(U1/10+.5):IFV 
1<U1THENV1=V1+5 
61310 RETURN 

61354 REM —> TRACE DES CHIFFRES 

61355 I*=RIGHT*(STR*(I),LEN(STR*(I)>- 
1 ) 

61360 CURSET3,BAS+SS*(PAS*I/5-4*SS) , O 
:F0RJ=1T0LEN(I*) 

61365 CHARASC(MID*(I*,J,1)),0,1 :CURMO 
V6,O,O:NEXT 

61366 IF0G=OTHEN6137O 

61367 XY=BAS+SS*(PAS*I/5)-6*0Q:IFXY<8 
THEN61370 

61368 CURSET18+6*0Q,XY,O:PATTERN85:DR 
AW220-6*00,O,1 :PATTERN255 

61370 RETURN 

61380 I*=RIGHT*(STR*<I),LEN(STR*(I))- 
1 ) 

61385 CURSET3,BAS-SS*(PAS*I/5+4*SS),0 
: FORJ=1T0LEN(I*) 

61390 CHARASC(MID*(I*,J,1)),0,1:CURMO 
V6,0,0:NEXT 

61391 IF0G=0THEN61395 

61392 XY=BAS—SS*(PAS*I/5)—6*0Q:IFXY<8 


THEN61395 

61393 CURSET 18+6*0G), XY, O: PATTERN85: DR 
AW220-6*0Q,O,1 :PATTERN255 
61395 RETURN 

61399 REM —> HISTO DE RAPPEL DES NAT 
URES EN LEGENDE 

61400 BX=#A000+40*197+05:DOKEO,BX 

61405 F0RI=1T0XM:D=(I—1)*7 

61406 CALL#9300,D,8,0,2,M0(I>,0,0,0 
61410 NEXT:CURSET5,190,0 

61415 FOR1=1TOX:FORJ=1TOLEN(ZN*(I)) 
61420 CHARASC(MID*(ZN*(I),J,1)),0,1:C 
URMOV6,O,O:NEX T:CURMOV18,O,O: NEXT 
61430 RETURN 

61440 REM —> OPTIMISATION DES LARGEU 
RS DES BARRES 

61450 MG=0:MD=0:IT=0:IG=0:LA=INT(36/( 
X*Y) ) 

61452 IF36=X*YTHENRETURN 
61455 RE=36-LA*X*Y:IFLA>2ANDRE=0THENL 
A=LA—1 :G0T061455 

61460 IFLA>10THENLA=10:G0T061455 
61465 IFX=1ANDY=1THENLA=16:IT=0:IG=0: 
MD=10:MG=10:RETURN 

61470 IFX=2ANDY=1THENLA=12:IG=lb:IT=0 
:MG=7:MD=7:RETURN 

61475 IFX=1ANDY=2THENLA=12:IT=10:IG=0 
:MD=7:MG=7:RETURN 

61480 F0RIG=0T010:FORIT=OTOIG:G0SUB61 
230 

61485 IFR=RE-1THENMD=1:RETURN 

61490 IFR=RE—2THENMD=1 :MG=1 :RETURN 

61495 IFR<RE—2THEN61520 

61500 IFLA>2THENLA=LA—1 :G0T061455 

61505 IFIT=0THENIG=IG-1:RETURN 

61510 IT=IT-1:RETURN 

61520 NEXT:NEXT 

61530 RETURN 

61549 REM —> CAS DES BARRES SUPERPOS 
EES 

61550 F0RJ=1TOY:K=0:T=0:F0RI=1TOX 
61555 U=SGN ( ZD < I, J) ) : IFUOOTHENK=K+1 
61558 T=T +U:NEXT:IFABS(T)<>KTHEN0S=0 
61560 NEXT:IFOS=OTHENRETURN 

61562 F0RJ=1TOY: ZD(0,J)=0:NEXT 
61565 F ORJ = 1TOY: FORI = 1TOX:ZD(O,J)=ZD( 
O,J)+ZD(I,J):NEXT:NEXT 
61570 F0RJ=1T0Y:IFZD(O,J)>MXTHENMX=ZD 
(O, J) 

61575 IFZD (O,J)<MNTHENMN=ZD(O,J) 

61580 NEXT 
61590 RETURN 

61599 REM —> TRACE BARRES SUPERPOSEE 
S 

61600 FORJ=1TOY 

61605 BX=#A000+40*BAS+3:DOKEO,BX:DP=M 
G+DT*(J-l) 

61610 IFZC(O,J)<0THEN61635 
61615 FQRI=1TOX:HT=ABS(ZC(I,J>) 

61620 CALL#9300,DP,HT,O,LA,MO(I),OQ,M 
1 ,M2 

61630 BX=BX—HT*40:DOKEO,BX:NEXT:NEXT: 
RETURN 

61635 BX=BX+40*ABS(ZC(0,J)):DOKEO,BX 
61640 F0RI=XT01STEP-1:HT=ABS(ZC(I,J)) 
61645 G0T061620# 
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PETITES ANNONCES 


La place réaarvée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d’arrivée. Par contre, les peti¬ 
tes annonces farfelues sont systématique¬ 
ment rejetées... De même, comme il est peu 
probable qu'il existe des "généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes ennonces faisant appel è ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
é vendre ou échanger des listes ou copies de 
logldele non garantis "d'origine", ainsi que 
toute annonce Incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites ennonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée). le texte étant rédigé é raison d'un 
caractère per case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée 

1000 titres sur Jasmin, vends originaux maths, 
niveau 4* à terminale. GIRARD B., 11, Les Jachè¬ 
res. 25320 MONTFERRAND. 

Vends Oric Atmos. lecteur K7. prog. Atmos. Tél. 
47.66.89.77. 

Vends ensemble Jasmin 2 plus 2 lect. DF/DD 
+ cale. + multifich. + easytext + livre TDOS : 
3500 F. 54 39 33.15. 

Echange ou vends 10 à 20 F les 270 meilleurs logi¬ 
ciels sur ORIC. Demander Momo au 90.50.56.34 
après 20h. 

Cherche Musicoric sur ATMOS. Echange: Tél. 
48.76.81.37 le soir. 

Vends ORIC/ATMOS complet + revues + livres + 
K7. Exc. état 112/85). Valeur 1500 F. cédé 800 F. 
Tél. 70.03.19.24. 

Fin de l'ORIC ? Non I Adhérez au club ORIC INTER¬ 
NATIONAL (nbx avantages) : C.O.I., 4 rue Michel 
Ange. 51000 CHALONS. tél. 26.64.22.43. 


Recherche logiciels K7 ou disque Jasmin 2 ATMOS. 
Recherche également logiciels sur 5"1/4 M HEN 
RIAT, 05, rue Guy Moquet, 91390 MORSANG. 

Achète programme de math, français, anglais, 
espagnol (ORIC 1). niveau 3*. D. DAUSSY, Tous¬ 
saint. 76400 FECAMP. tél. 35.28.09.37. 


Vends esclave Microdisc non Eurêka 1400 F + 
interface. Télé N&B : 150 F. Tél 60.05.58.33. 

Vends cause double emploi imprimante Smith 
Corona "Fastext 80". un an, très peu servi + câble 
ORIC et "Vortex" : 1500 F â débattre. M. RENAU 
DIN. tél. (Il 48.81.04.55. 

Vends JASMIN + 12 disquettes 1200 logiciels) + 
livres, prix sacrifié : 1500 F Tél 48.74 49 86 
(Jérôme). 

ATMOS + Jasmin 2 cherche contact pour échan¬ 
ges F VERNER, 5 rue Albert Thomas. 60100 
CREIL. 

Passionné d’ATMOS cherche correspondants pour 
échanges divers Thierry CAZALIS. 22 Bois du 
Maine. 16800 SOYAUX. 

Vends revues THEORIC et Microric. imprim. GP 
100 A. Jacky MORIERE. 10 rue du Chemin Baren 
tin. Céton, 61260 LE THEIL/HUISNE 

ORIC 1 cherche désespérément programmes E/R 
Fac. CW. RTTY. SSTV avec ou sans interfaces. 
Cherche imprimante. Tél. 49 79.84 69. 

Vends ORIC 1 ROM ATMOS + ATMOS pour 
récup.. nbx jeux cordons péritel + magnéto. Tél. 
43.47.16.38 après 19h. demander Dominique. 

Vends MCP 40 : 700 F. Log. ATMOS sur K6 et livre 
graphisme 3D : 50 F. Jeu Les Conquérants sur dis¬ 
quettes Jasmin, simple face 150 F. Tél. 
43.64 29.47. 

Vends Aigle d’Or (140 Fl. Zorgons Revenge (90 F) 
et The Ultra 140 F) sur ORIC 1 ATMOS. Prix de 
groupe : 250 F. Samuel EVEILLE, tél. 51.32.48.57 
(HR). 

Vends ATMOS + SEDORIC + MCP 40 + revues 


THEORIC + |6UX : 2000 F. Tél. 64 57.71.84. Eric 
DELOOF, 91 LA FERTE A LAIS. 

ATMOS + JASMIN cherche contacts pour échan¬ 
ges Saint-Hubert Antoine. 18 rue des Huches. 
21800 QUETIGNY. 

Echange logiciels pour AMSTRAD CPC 464 K7 
seule. Emmanuel NONNON. 24 rue de la Douce- 
tière. 50180 AGNEAUX. 

Vends originaux : 50 F pièce (ATM. Formule 1. 
etc ), carte Déplomb’tout (doc. Iiste/demande). M 
MORALES, poste restante, 13127 VITROLLES. 

Urgent, vends TELESTRAT ROM S V2.0 : 3600 F 
+ port. Tél. 63.95.10.03. 

A vendre ATMOS + Jasmin 2 + moniteur vert 
Zenith + 10 disquettes. L'ensemble 
3200 F.Tél. 45.78.70 96 après 19h. 

Vends cassettes Master Paint, Hades + 
notices : 100 F chaque. Vends Théorie 1 à 
26, sauf 14 à 24 :15 F chaque. 

Tél. 33.24.30 45. 

Vends ROM 1 et ATMOS/p68000 16 bits/ 
Eprom 2716 - 2764 (vierges). Echange softs 
Diasio. Joseph, quartier Mermoz Bat. Dn2, 
54240 Joeuf. 

Recherche pour JASMIN disquette Astro- 
Galculs. Tél. 60.63.04.10 

Vends ATMOS, + Sedoric + 8 disq. + 6 liv. 
(6502 + CM + ORICANU), prix : 2000 F. IMP 
SEIKOSKA GP100A Prix: 1600 F TBE. 
Tél: 1 64 22 30 26 après 17h. 

ATMOS cherche à faire échanges. Attend 
aussi propositions pour achat de JASMIN 2 
- Brusamarello Bruno, soupir 02160 
Beaurieux. 


ANNONCEZ-VOUS ! 


LES PETITES ANNONCES ET LES MESSAGES 

Attention, vos PA seront mises sur le serveur avant la parution du journal 
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o Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

jf SORACOM, La Haie de Pan - 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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SORACQSIl 


LES DISQUETTES DE THEORIC 


Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 

Le prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette), 146 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels parus dans THEORIC. A vous de les 
adapter à vos besoins et ou fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n° 4 et 5 
N° 2 THEORIC n 6 6 et 7 
N° 3 THEORIC n" 8 et 9 
N° 4 THEORIC n° 10 et 12 
N° S THEORIC n° 13 et 14 
N° 6 THEORIC n° 1 5 et 16 
N° 7 THEORIC n° 17 et 18 
N° 8 THEORIC n° 1 9 et 20 
N° 9 THEORIC n° 21 et 22 
N° 10 THEORIC n° 23 et 24 
N° HS THEORIC HORS SERIE (n° 
N° 1 1 THEORIC n° 25 et 26 
N° 12 THEORIC n° 27 et 28 


VOLUME s T027V28 


U 

C-RS . BAS 

S 

22 

SECTORS 

U 

ATMITEL .BAS 

S 

1 B 

SECTORS 

U 

SEQPURE .BAS 

s 

6 

SECTORS 

U 

SEQCHAIN.BAS 

s 

7 

SECTORS 

U 

SEQPARTI.BAS 

s 

6 

SECTORS 

U 

DIRRELAT.BAS 

s 

7 

SECTORS 

U 

DIRALEAT.BAS 

s 

9 

SECTORS 

U 

INDEXEE .BAS 

s 

9 

SECTORS 

U 

INDEXTRI.BAS 

s 

10 

SECTORS 

U 

DEMOFEN .BAS 

s 

8 

SECTORS 

U 

FENAT .BAS 

s 

17 

SECTORS 

U 

FENOl .BAS 

s 

17 

SECTORS 

U 

TDK .BAS 

s 

12 

SECTORS 

U 

ATMPARIS.BAS 

s 

98 

SECTORS 

U 

MODROMAT.BAS 

s 

17 

SECTORS 

U 

MODROMO1.BAS 

s 

16 

SECTORS 

U 

ECRSECSO.BAS 

s 

8 

SECTORS 

U 

HIPPIC -BAS 

s 

29 

SECTORS 

U 

IDIR .BAS 

s 

20 

SECTORS 

U 

POIDS .BAS 

s 

23 

SECTORS 

U 

P0IB6MIC.ARY 

s 

7 ! 

SECTORS 


U SCROLLER.BAS 
U SUPAT . BAS 
U SUPOl .BAS 
U SUPFEN . BAS 
U CHARCALC.BAS 
U FRACBAS .BAS 
U CHARFRAC.BIN 
U FRACLH .BAS 
U FRACTAL7.SCR 
U FRACTAL4.SCR 
U HISTO . CMD 


S 13 SECTORS 

S 9 SECTORS 

S 9 SECTORS 

S 18 SECTORS 

S 18 SECTORS 

S 3 SECTORS 

S 4 SECTORS 

S 3 SECTORS 

S 33 SECTORS 

S 33 SECTORS 

S 4 SECTORS 


182 SECTORS FREE 


BON DE COMMANDE 
DES DISQUETTES THEORIC 



Je commande les disquettes 1, 2, 3, 4, 5 HS ; 6, 7, 8, 9, 

10, 11, 12. 

Ci-joint :116F par disquette et mon étiquette abonné 
146 F par disquette car je ne suis pas abonné 

Soit ou totol lo somme de F réglée par chè¬ 

que ci-joint. 


NOM .Prénom 

Adresse. 

Code Postal .... Ville . 





















SORAC^J 

(NfORMAWtf 


prénom 


jvjom 

Adres^ 

t Dé4'9 n ' 


La Haie de Pan 
35170 BRUZ 


lAfAAN 06 




TYRAN N II EST LA! 

Présentation "PRO' en boîtier de 2 cassettes, ovec carte des lieux, fiche de personnages, fiche de monstres, 
livret de règles illustré de plus de 60 pages. 

Avec le FER D’ANNUKOR, le jeu de rôle sur micro atteint enfin sa maturité! 


Disponible chez votre revendeur ou en nous retournant ce coupon à OPUS 

14000 CAEN. Tèl. 31.86.56.69. 


49, rue des Rosiers, 


Nom 


Adresse 


Prénom 


I Désire recevoir le fer dAnnukor. 

Joindre un chèque de 230 F (210 F + 20 F de port). 


IZARD Crée boni 99 38 96 33 











